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;<PRUCHA>RX2FMT.Pn.7, 22-AUG-78 13:28:06. EDIT BY SOUSA 
.REM & 



IDENTIFICATION 



PRODUCT CODE 
PRODUCT NAME 
DATE CREATED 
MAINTAINER: 

AUTHOR: 



AC-E662A-MC 

CZRXEAO RX02 FMTR PROG 
25 JUL 78 

DIAGNOSTIC ENGINEERING 
L.S. PRUCHA 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSLMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 

THE SOFTUARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIBILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
DIGITAL, 

COPYRIGHT (C) 1978, BY DIGITAL EQUIPMENT CORPORATION 
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5637 1,0 ABSTRACT 

5638 

5639 

5640 THIS PROGRAM IS INTENDED TO FORMAT A FLOPPY DISK TO EITHER SINGLE 

5641 OR DOUBLE DENSITY ON A DRIVE CAPABLE OF SETTING DENSITY ON A FLOPPY 
56^2 DISK. IT WILL RUN UNDER APT, BUT WILL RUN IN A USER MODE WITH 
5643 SEVERAL SWITCHABLE OPTIONS 10 ENABLE A TESTING AND DEBUGGING. 

5644 
5645 

5646 2.0 REQUIREMENTS 

5647 

5648 

5649 

5650 2.1 HARDWARE 

5651 

5652 

5653 1. ANY PDP-11 PROCESSOR 

5654 2. RX02,XX SUBSYSTEM 
5655 

5656 

5657 2.2 STORAGE 

5658 

5659 

5660 THIS PROGRAM REQUIRES AT LEAST 4K WORDS OF CORE. IF LOADING 

5661 VIA XXDP MORE STORAGE WILL BE NEEDED FOR THE XXDP MONITOR. 

5663 

5664 3.0 LOADING PROCEDURE 

5665 — — — — ^ 

5666 

5667 USE OF STANDARD BINARY LOADING PROCEDURE OR DOWN LINE LOAD VIA 

5ooo APT . 

5669 

5670 

567^ 4.0 STARTING PROCEDURE 

5673 

5674 1. USER MODE - START AT LOCATION 200(8) TO INITIALIZE 

5675 REGISTERS. 

5676 - START AT LOCATION 210(8) TO RESTART TEST. 

5677 - START AT LOCATION 220(8) TO ENTER DEBUG MODE. 
j6 'o 

5679 2. APT MODE - ALWAYS START AT LOCATION 200(8). 

5ooU ———————— 
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5704 
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5717 

5718 
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5729 



5.0 



SOFTWARE SWITCH SETTINGS 



1. USER MODE - THE SWITCH REGISTER IS SETUP FOR THE USER BY 
THE PROGRAM VIA USER DIALOG. 



SW15: 
SW14: 
SW13: 
SW12: 
SW09: 



1 = HALT ON ERROR 

0 = CONTINUE 

1 ^ EXTENDED ERROR REPORTS 

0 = NORMAL ERROR REPORTS 

1 = INHIBIT ERROR REPORTS 

0 = PRINT ERRORS 

1 = BUS INITIALIZE ON ERROR IF LOOPING 
0 = NO BUS INITIALIZE ON ERROR 

' = LOOP ON ERROR 

0 - CONTINUE 



— > 



THESE SWITCH SETTINGS! 
ARE AVAILABLE. BUT ARE! 
INTENDED FOR HARDWARE! 
DEBUG ONLY. ! 



****** SOFTWARE SWITCH REGISTER 



1 1 1 1 1 1 


'!15 !14 ! 13! 12! 11! 


10! 09 


08! 07! 06 !05 


!04 !03 :02 !01 


!00 i 


!HOE!EXTiIER!BUS! ! 


ILOE. 


DeL!CRC! ! 


! ! ! iSYl 


!SY0! 


SWR ! !ER ! !INT! ! 




DEN! ALL! ! 

A A 

1 1 


! ! I ISEL 

A 

1 


!SEL! 

A 

1 













! THESE BITS ARE SET BY PROGRAM INTERFACE I 
. TO USER - THEY ARE SHOWN HERE TO AID IN ! 
! PROGRAM MAINTENANCE. ! 



2. APT MODE - THE APT SWITCH REGISTER "ISWRE6" MUST BE SET UP 

AS FOLLOWS: SY0SEL=1 (8IT0) AND DBLDEN=1 (BITS) 

FOR SETTING TO DOUBLE DENSITY. IF CRC CHECK ON 
ALL TRACKS IS DESIRED THEN SET BIT CRCALL=1 (BI T7) 
SEE SWITCH REGISTER ABOVE. 
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5733 6.0 
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5735 
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57A0 

5741 

5742 

5743 

5744 

5745 6.1 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 7.0 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5762 

5763 

5764 

5765 
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5768 

5769 

5770 
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SEQ 



OPERATION 

THE PROGRAM OPERATJON IN 'USER MODE" IS SIMPLE. AFTER INITIAL 
START THE PROGRAM WILL ASK THE OPERATOR IF HELP IS WANTED AND 
WILL TYPE OUT A SHORT DESCRIPTION OF THE PROGRAM IF ANSWERED 
YES. THE PROGRAM WILL ALSO ASK IF A FULL DISKETTE SCAN IS 
WANTED TO VERIFY CRC. IF ADDRESS MODIFICATION IS SELECTED THEN 
THE PROGRAM WILL THEN ASK THE OPERATOR TO ENTER THE BUS ADDRESS 
AND VECTOR ADDRESS. 

CONDITIONS OF OPERATION 



THE PROGRAM EXPECTS TO RUN ON AN RX02 INTERFACE AND RX02 DRIVE 
SUBSYSTEM THAT HAVE PASSED ALL DIAGNOSTIC TESTS. ERRORS ARE 
REPORTED. BUT PRINTOUTS ARE NOT EXTENSIVE ENOUGH TO DIAGNOSE 
HARDWARE FAILURES. 

PROGRAM DESCRIPTION 



THE PROGRAM IS ORGANIZED AS FOLLOWS: 
START 

DETERMINE IF LSI PROCESSOR 

IF NOT APT MODE, CALL OPERATOR INTERFACE 

SET UP REGISTERS 

CALL SYSTEM SCHEDULER 

IF NOT APT MODE-CALL OUTPUT SYSTEM DONE (GET FURTHER OPERATOR INSTRUCTIONS) 
PRINT END OF PASS 
INCREMENT PASS COUNTER 
CHECK IF ACT MODE 
BUS RESET 

IF IDLE MODE SET THEN IDLE IN LOOP 
JUMP BACK TO "CALL SYSTEM SCHEDULER" 
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5809 
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5813 

5814 

5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 



7.1 



FLOW 



BEGINROUTINE (MOD PROGRAM START ♦ CONTROL) 
INITIALIZE STACK POINTER 
IF RO IS FALSE 
THEN 

PRINT PROGRAM IDENTIFICATION MSG 
IF APT MODE IS TRUE 
THER 

GET APT SWITCH REGISTER 
IF APT PROCESSOR Q-6US TRUE 
THER 

SET LSI PROC PRI 
ELSE 

SET PDP11 PROC PRI 

ENDIF 

GET APT VECTOR 
SET SYSTEM VECTOR 

GET APT BASE ADDRESS OF UNIT UWDER TEST 
CALL ADDRESSING TEST 
ELSE 

SETUP BUS TRAP FOR LSI PROC TEST 
SET PROCESSOR STATUS WORD 
IF LSI PROCESSOR STATUS WORD TRAP TRUE 
THER 

SET LSI PROCESSOR WORD STATUS 
SET LSI PROCESSOR FLAG 

ENDIF 

CALL OPERATOR INTERFACE (MOD 1.0) 
SET VECTOR INTERRUPT ADDRESS 

ENDIF 

SETUP DENSITY PER SWITCH REGISTER 
CLEAR TABLES + FLAGS 
CALL MOD-TEST ADDRESS 

ENDIF 

CLEAR PASS COUNTER 
BGNDO 

CALL SYSTEM SCHEDULER (MOD 2.0) 
IF APT MODE FALSE 
: THEfJ 

: CALL OUTPUT DONE (MOD 3.0) 
ENDIF 

SET UP/PRINT END OF PASS * PASS COUNT 
INCREMENT PASS COUNTER 
IF ACT MODE TRUE 
THEfJ 
RESET 

CALL ACT HOOKS 

ENDIF 

IF SYSTEM FLAG-IDLE 
THEN ' 
BEGINDO 
ENDDO 

ENDIF 
ENDDO 
ENDROUTINE 
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5829 

5830 7.2 PROGRAM FUNCTIONAL DESCRIPTJONS 

5831 

5832 

5833 THE PROGRAM UILL ACCOMPLISH THE FOLLOWING FUNCTIONAL ELEMENTS: 

5834 

5835 1. PROGRAM INITIALIZE SELECTED SYSTEMS ♦ CHECK STATUS 

5836 

5837 2. READ MAINTENANCE STATUS ON SELECTED DRIVES ♦ CHECK STATUS 

5838 

5839 3. SET DENSITY ON ALL SELECTED DRIVES ♦ CHECK STATUS 

5840 

5841 4. CHECK CRC ON TRACKS *76 AND #0 OR ALL TRACKS, IF SELECTED 

5842 BY USER. REPORT STATUS, IF ANY ERRORS. 
5843 

5844 5. REPORT WHEN DONE. 
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SEQ 0008 



8.0 



DEVICE REGISTERS 



CODE 



0 
1 
2 
3 
4 
5 
6 
7 



FUNCTION 



FILL BUFFER 
EMPTY BUFFER 
WRITE SECTOR 
READ SECTOR 

SET DENSITY (RX02) ** BE CAREFUL TAKES 15 SECONDS 
READ STATUS *• MAINTENANCE MODE ** 
WRITE SECTOR WITH DELISTED DATA 
READ ERROR CODE 



***** 


RX02 REGISTER BITS ***** 






1 








1 

15 !14 1 13 


1 

12! 11! 10! 


09 


08! 07! 06 


05 


i 1 

04 !03 !02 


01 


00 


RXCS: 


ERR.'INT.'XM 


XM !RX2: ! 


SID 


DEN!TR !IE 


'DON 


DRV!FUN!FUN. 


FUN 


GO 


WC: 


! WORD 
! COUNT 
















BA: 


! BASE 

' ADDRESS 
















RXES: 


' X ! X ! X 


X INXM'WC ! 

: !OVF! 


SID 
#1 


DRV! DRV! DEL 
M^ IRDYIDAT 


!DSK 
!DEN 


DEN! AC !INT 
ERR! LOW! DON 


SID 
RDY 


CRC 
ERR 


RXD8: 


; DATA 
! BUFFER 
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5885 


9.0 LIST 


5886 




5887 




5888 


6042 


5869 


6069 


5890 


6128 


5891 


6130 


5892 


6186 


5893 


6269 


5894 


6376 


5895 


6432 


5896 


6452 


5897 


6459 


5898 


<476 


5899 


6512 


5900 


6618 


5901 


6677 


5902 


6690 


5903 


6705 


5904 


6818 


5905 


6911 


5906 


7040 


5907 


7083 


5908 


7149 


5909 


7161 


5910 


7237 


5911 


7253 


5912 


7270 


5913 


7279 


5914 


7385 


5915 


7481 


5916 


7524 


5917 


7539 


5918 


7543 


59-; 9 


7548 


5920 


7659 


5921 


7728 


5922 


7758 


5923 


7803 


5924 


7826 


5925 


7853 


5926 


7893 


5927 


7901 


5928 


7909 


5929 


7922 


5930 


7932 


5931 


7940 


5932 


7963 


5933 


7996 


5934 


8037 


5935 


8078 


5936 


8098 


5937 


8106 


5938 


8124 


5939 


8142 


5940 


8255 
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SEO 0009 

i INDEX 



BASIC DEFINITIONS 
ACT11 HOOKS 
APT «AILB0X-ETA8LE 
APT PARAMETER BLOCK 

MODULE 0.0 - PROGRAM START AND CONTROL 

MODULE 1.0 - OPERATOR INTERFACE 

MODULE 1.1 - GET SYSTEM BUS ADDRESS + TEST 

ADDRESSING TEST * 

ERROR 1 UNIT NOT RESPONDING TO ADDRESS 

MODULE 1.2 - GET SOFTWARE SWITCH REGISTER 

MODULE 1.3 - CHECK SYSTEM ADDRESS 

MODULE 2.0 - SYSTEM SCHEDULER 

MODULE 2.1 - INITIALIZE CHECK 

ERROR 2 NO DONE BIT AFTER INITIALIZE 

ERROR 3 ERROR BIT SET ON INITIALIZE 

MODULE 2.2 - SYSTEM DRIVER 

MODULE 2.2.1 - GET COMMAND 

MODULE 2.2.2 - TRACK + SECTOR UPDATE 

MODULE 2.2.3 - DRIVE DRIVER 

MODULE 2.2.3.1 - OUTPUT DRIVE COMMAND 

MODULE 2.2.3.1.1 - OUTPUT SINGLE WORD 

MODULE 2.2.5 - ERROR CHECK 

ERROR 4 READ MAINT STATUS COMMAND ERROR 

ERROR 5 SET DENSITY COMMAND ERROR 

ERROR 6 READ SECTOR COMMAND ERROR 

MODULE 2.2.5.1 - DRIVE DROP 

MODULE 2.2.5.2 - DRIVES AVAILABLE CHECK 

MODULE 2.2.5.3 - SET TEST BITS IN CSR ♦ ESR 

MODULE 2.2.5.4 - LOOPING MODULE 
ERROR 7 LOOPING MOD-CSR ERR 

ERROR 10 LOOPING MOD-ESR ERR 

MODULE 2.3 - SYSTEM STATUS 

MODULE 2.3.1 - PRINT SYSTEM STATUS 

MODULE 2.3.2 - SYSTEM DROP 

MODULE 2.3.3 - SYSTEM TIMEOUT CHECK 

MODU.E 2.4 - WATCH DOG SYSTEMfO 

MODULE 2.5 - WATCH DOG SYSTEM*1 

MODULE 3.0 - OUTPUT SYSTEM DONE 

MODULE U.PRIHI - SET PROCESSOR PRIORITY HIGH 

MODULE U.PRILO - SET PROCESSOR PRIORITY LOW 

MODULE U.PROPRI - SET PROCESSOR PRI 

MODULE U.SADR - SET SYSTEM BUS ADDRESS 

MODULE U.SUCO - SET SYSTEM UNDER CONTROI OFFSET 

MODULE U.DL - DELAY FOR '*TR" OR 'DONE" 

TIME OUT ERROR PRINT 

RXCS ERROR CHECK 

RXES ERROR CHECK 

TEST HEADER CHECK + PRINT 

MODULE U.PRTSYS - PRINT SYSTEM IDENTIFICATION 
MODULE U.PRTDRV - PRINT DRIVE IDENTIFICATION 
MODULE U.PRTKSC - PRINT TRACK ♦ SECTOR ERROR IDENT 
CHECK BITS SET ♦ NOT SET 
ERROR SET SUBROUTINE 
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c~i 8264 BUS INITIALIZE SUBROUTINE 

r^/p 8294 RX02 IfJTERRUPT HANDLER *0 

cali 8301 RX02 INTERRUPT HANDLER *1 

cA7f 8307 TTY INTERRUPT HANDLER 

soZs 8323 BUS ADDRESS TRAP HANDLER 

cA7z 8346 APT ERROR HANDLER 

^S? 8358 MODULE U.OPRANS - SETUP ♦ GET OPERATOR ANSWERS 

Sq2r 8371 TTY ENTRY SUBROUTINE 

CQ?Q 8418 TTY ENTRY ERROR SUBROUTINE 

iocX 8427 TTY ANSWER ENTRY SUBROUTINE 

cQcV 8458 TTY READ SUBROUTINE 

cgcp 8474 TTY ASCII OUTPUT SUBROUTINE 

clli 8497 OCTAL OUTPUT SUBROUTINE 

Iqll 8560 DATA CHARACTER OUTPUT SLBROUTINE 

5955 8587 TTY OUTPUT 

5956 8601 MESSAGE TABLE 

5957 8666 TEST HEADERS 

5958 8677 ERROR CODE STORAGE 

5959 8691 PATCH AREA 

5960 
5961 
5%2 
5963 
5964 
5965 
5966 
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5969 




59^0 




59/^1 








5973 
























39ry 












coo '3 






OUUUhU 


COB/ 






UUvJ*»w 




nm nnn 


J^Of 




COfifl 


VAAAJ 1 u 




ATlATUTZ. 




UlAAAJc 


^yy 1 














vwvW 1 




100000 

1 lAAAA/ 




nooo?n 












V/V/vwv 1 




0000^0 

\J\J\J\JH\J 


OVA/ 1 


VV/V/cvv 








00001? 


6004 


000010 


6005 


000400 


6006 


000001 


6007 


000001 


6008 




6027 




6034 
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9.1 LISTING 



ft 

.TITLE CZRXEAO RX02 FMTR PROG 

;RX02-APT 

;14-MARCH-78 

;L. PRUCHA 

.ENABLE A8S.AMA 

.LIST ME 

.NLIST BEX,CND.MC.MD 



PROGRAM 


EQUIVALENTS 


DNBIT 


= 40 


TRBIT 


= 200 


DENBIT 


400 


SIDE1 


1000 


DRVRDY 


200 


ACLOU 


10 


INITDN 


4 


SIDRDY 


2 


DRIVE 1 


400 


DENERR 


BIT4 


DRVDEN 


fairs 


CRCERR 


BITO 


ERRBIT 


100000 


DRV1 


20 


RXINJT 


40000 


RX2BIT 


4000 


APTENV 


1 


APTCSP 


40 


CRCALL 


= SU7 


RDSEC 


6 


RDMNST 


= 12 


SETDEN 


10 


DBLDEN 


B1T8 


X=1 




N=1 





SEQ 0011 



DONE BIT <CSR> 

TR BIT <CSR> 

DENSITY BIT <CSR> 

SIDE #1 BIT <fcSR> t <CSR> 

DRIVE READY BIT-<ESR> 

AC LOW BIT <ESR> 

INITIALIZE DONE BIT-<ESR> 
SIDE READY BIT~<ESR> 

DRIVE M^ BIT <ESR> 

DENSITY ERROR <ESR> 

DRIVE DENSITY <ESR> 

CRC ERROR BIT <ESR> 

ERROR BIT <CSR> 

DRIVE 1 <CSR> 

RXINIT BIT <CSR> 

RX02 BIT <CSR> 

APT ENVIRONMENT TEST WORD 
APT CONSOLE SUPRESSION WORD 
CRC ALL TRACKS t SECTORS FLAG 
READ SECTOR COMMAW) CODE (LEFT SHIFTED) 
READ MAINT STATUS COMMAND CODE (LS) 
SET DENSITY COMMAND CODE (LS) 
; DOUBLE DENSITY BIT 
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6040 
6042 



001000 



000011 
000012 
000015 
000200 
177776 

177774 
M7772 
177570 
177570 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 



20-SEP-78 10:48 



n 1 

PAGE 67-1 



SEO 0012 



.S8TTL BASIC DEFINITIONS 

.••INITIAL ADDRESS OF THE STACK POINTER •** 1000 
STACK= 1000 

.EQUIV E«T, ERROR ; .-BASIC DEFINITION OF ERROR CALL 

.EOUIV JOT, SCOPE ; .-BASIC DEFINITION OF SCOPE CALL 



.♦mSCELLANEOt'S DEFINITIONS 

CODE FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE FEED 
PROCESSOR STATUS WORD 



HT= 
LF = 
CR= 
CRLF= 
PS= 
.EQUIV 



11 
12 
15 
200 
177776 
PS,PSW 



STKL«T= 17^774 
PIRQ= Mini 
DSWR= 177570 
DDISP= 177570 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



.-•GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
R1 = 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
SP= 
PC= 



XO 
XI 
X2 
X3 
X4 
X5 
X6 
X7 
X6 
X7 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



.••PRIORITY LEVEL DEFINITIONS 



PRO= 
PR1 = 
PR2= 
PR3= 
PR4= 
PR5= 
PR6= 
PR7= 

;*"SWI 

SW15= 

SW14= 

SW13= 

SW12= 

SW11 = 

SW10= 

SW09= 

SW08= 

SW07= 

SW06= 

SW05= 

SW04- 

SW03= 



0 
40 
100 
140 
200 
240 
300 
340 

TCH REGISTER' 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 



PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 
PRIORITY LEVEL 
PRIORITY LEVEL 
PRIORITY LEVEL 
PRIORITY LEVEL 
PRIORITY LEVEL 



SWITCH DEFINITIONS 



N 1 
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(1) 000004 SW02= 4 

(1) 000002 SW01= 2 

(1) 000001 SWOO= 1 

(1) .EQUIV SW09.SU9 

(1) .EQUIV SW08,SU8 

(1) .EQUIV SW07.SW7 

(1) .EQUIV SW06,SW6 

(1) .EQUIV SW05.SW5 

(1) .EQUIV SW04,SW4 

(1) .EQUIV SW03.SW3 

(1) .EQUIV SW02.SW2 

(V- .EQUIV SWOl.SWl 

(1) .EQUIV SWOO.SWO 
(1) 

(1) ;*DATA BIT DEFINITIONS (BITOO TO BIT15) 

(1) 100000 BIT15= 100000 

(1) 040000 BIT 14= 40000 

(1) 020000 BIT13= 20000 

(1) 010000 BIT12= 10000 

(1) 004000 BIT11= 4000 

(1) 002000 BIT10= 2000 

(1) 001000 BIT09= 1000 

(1) 000400 BIT08= 400 

(1) 000200 BIT07= 200 

(1) 000100 BIT06= 100 

(1) 000040 BIT05= 40 

(1) 000020 B1T04= 20 

(1) 000010 BIT03= 10 

(1) 000004 BIT02= 4 

(1) 000002 BIT01= 2 

(1) 000001 BITOO= 1 

(1) .EQUIV BIT09,8IT9 

(1) .EQUIV BIT08,BIT8 

(1) .EQUIV 8IT07.8IT7 

(1) .EQUIV BIT06,8IT6 

(1) .EQUIV BIT05,8IT5 

(1) .EQUIV BIT04,8IT4 

(1) .EQUIV BIT03,8IT3 

(1) .EQUJV BIT02.8IT2 

(1) .EQUIV BIT01,8JT1 

(1) .EQUIV BlTOO,eiTO 

(1) 

(1) ;*8ASIC "CPU" TRAP VECTOR ADDRESSES 

(1) 000004 ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 

(1) 000010 RESVEC= 10 ;;RESERVED AND ILLEGAL INSTRUCTIONS 

(1) 000014 TB1TVEC=14 ;;*T'BIT 

CI) 000014 TRTVEC= 14 ;; TRACE TRAP 

(1) 000014 E?TVEC= 14 .-.-BREAKPOINT TRAP (8PT) 

(1) 000020 IOTVEC= 20 ;; INPUT/OUTPUT TRAP (lOT) **SCOPE** 

(1) 000024 PWRVEC= 24 ;; POWER FAIL 

(1) 000030 EMTVEC= 30 ; .-EMULATOR TRAP (EMT) **ERROR** 

(1) 000034 TRAPVEC=34 ;;*7RAP" TRAP 

(1) 000060 TKVEC= 60 ;;TTY KEYBOARD VECTOR 

(1) 000064 TPVEC= 64 ;;TTY PRINTER VECTOR 

(1) 000240 PIRQVEC-240 .-.-PROGRAM INTERRUPT REQUEST VECTOR 

6043 



B 
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t)04A 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
CI) 
2) 
) 
) 
) 
) 
) 
) 
) 



TRAP CATCHERS ••••* 





000000 


.-0 




000000 


000000 


.WORD 


0 


000002 


000000 


.WORD 


0 


000004 


000000 


.WORD 


0 


000006 


000000 


.WORD 


0 


000010 


oooooo 


.WORD 


0 


000012 


000000 


.WORD 


0 


000014 


oooooo 


.WORD 


0 


000016 


oooooo 


.WORD 


0 


000020 


oooooo 


.WORD 


0 




AAAAAA 

uooouo 


.WORD 


0 


000024 


oooooo 


.WORD 


0 


000026 


oooooo 


.WORD 


0 


000030 


oooooo 


.WORD 


0 


000032 


oooooo 


.WORD 


0 


000034 


oooooo 


.WORD 


0 


000036 


oooooo 


.WORD 


0 


000040 


oooooo 


.WORD 


0 


000042 


oooooo 


.WORD 


0 


000044 


oooooo 


.WORD 


0 



000046 
000052 



000046 
000046 
001422 
000052 
OOOOOO 
000046 



.S8TTL ACT11 HOOKS 

.HOOKS REQUIRED B> ACT11 
$SVPC=. 
.=46 
SENDAD 

.=52 

.WORD 0 
.-ISVPC 



UNASSIGNED TRAP 
TIME OUT. BUS TRAP 
RESERVED INSTRUrTION 
TRACE TRAP 



******* 

.•SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD 

;;2)SET LOC.52 TO ZERO 
;; RESTORE PC 
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SFQ 0015 



6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

6080 

6081 

6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 

6099 

6100 

6101 

6102 

6103 

6104 

6105 

6106 

6107 

6108 

6109 

6110 

6111 

6112 

6113 

6114 

6115 

6116 

6117 

6118 

6119 

6120 

6121 



000060 
000060 012420 
000062 000000 



000200 
000200 005000 
000202 000137 001000 

000210 
000210 012700 000001 
000214 000137 001000 

000220 
000220 005237 000516 
000224 005000 
000226 000137 001000 



000264 
000264 012404 
000266 000340 

000270 
000270 012412 
000272 000340 

000300 



000300 177560 

000302 1 77562 

000304 1 77564 

000306 1 77566 



000310 
0C0312 
000314 
000316 
000320 
000322 
000324 



000264 
000270 
177170 
177200 
000004 
000006 
000401 



TTY INTERRUPT VECTOR 

.=60 

TTINT 

0 

START ADDRESS **•»» 



;TTV INTERRUPT HEADER ADDRESS 



.=200 

CLR 

JMP 

.=210 

MOV 

JMP 

.=220 
INC 
CLR 
JMP 



RO 

START 



#1.R0 
START 



D8GFLG 
RO 

START 



; PROGRAM START 



;SET NO HEADER FLAG 



;SET DEBUG FLAG 

;SET SO HEADER WILL PRINT 



;**•'-* RX02 INTERRUPT VECTORS ***** 



.=264 

RXINTO 

340 

.=270 

RXINTl 

340 

.=300 

;**♦•* CONSTANTS *•**• 



;RX02 INTERRUPT HANDLER #0 ADDRESS 



;RX02 INTERRUPT HANDLER *1 ADDRESS 



TKS 
TKB 
TPS 
TPS 



177560 
177562 
177564 
177566 



;*••** INITIAL CONSTANTS •••*• 

VECTO: 264 

VECTl : 270 

REGSO: 177170 

REGSl: 177200 

BTRP: 4 

8TRP2: 6 

SWREG; 401 



;TTY READER STATUS 

;TTY READ BUFFER 

;TTY PUNCH STATUS 

;TTY PUNCH BUFFER 



INTERRUPT VECTOR SYS #0 
INTERRUPT VECTOR SYS #1 
STARTING REGISTER ADDRESS SYS *0 
STARTING REGISTER ADDRESS SYS ft^ 
BUS TRAP ADDRESS 
BUS TRAP RRIORITY LEVEL 

SOFTWARE SWITCH REGISTER - PRESET-> DEN-D8L.SYS0 
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SEQ 0016 



23 
24 
25 
26 
27 
28 
1 



OOOAOO 
OOOAOO 
000A02 
000404 
000406 
000410 
000412 
000414 
000416 
000420 
000420 
000421 
000422 
000424 
000426 



000430 
000431 



000400 
000401 
000264 
1 771 ^0 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000 
000 
000401 
000000 
000000 



000 
000 



.=400 
ASWREG=401 
AVECT1=264 
ABASE=177170 

.S8TTL APT MAI L80X-E TABLE 



;APT VECTOR 264 
.-APT UNJ8US ADDRESS 



************************************************************ ••*• 



.EVEN 

SMAIL: 

SMSGTY 

$FATAL 

STESTN 

SPASS: 

SDEVCT: 

SUNIT: 

SMSGAD: 

JMSGLG: 

$E TABLE 

fENV: 

SENVM: 

$SWREG: 

$USUR: 

SCPUOP: 

;• 

; * 

SMAMSI: 
JMTYPI : 



.WORD 
.WORD 
.WORD 
.UORD 
• WORD 
.WORD 
.WORD 
.UORD 

.BYTE 
.BYTE 
.UORD 
.UORD 
.UORD 



.BYTE 
.BYTE 



AMSGTY 

AFATAL 

ATESTN 

APASS 

AOEVCT 

AUNIT 

A/1SGAD 

AMSGLG 

AENV 

AENVM 

ASUREG 

AUSUR 

ACPUOP 



AAwnsi 

AMTYP1 



000432 


000000 


SMADRI 


.UORD 




000434 


000 


SMAMS2 


.BYTE 


AfW1S2 


000435 


000 


$«TYP2 


.BYTE 


AMTYP2 


000436 


000000 


$«ADR2 


.UORD 


A«ADR2 


000440 


000 


$«AWS3 


.BYTE 


ArtA«S3 


000441 


000 


$MTYP3 


.BYTE 


AMTYP3 


000442 


000000 


$WADR3 


.UORD 


AMADRS 


000444 


000 


s^Ans^ 


.BVTE 


ArW1S4 


000445 


000 


$MTYP4 


.BYTE 


AMTYP4 


000446 


000000 


SnADR4 


.UORD 


AMADR4 


000450 


000264 


SVECTl 


.UORD 


AVECTl 


000452 


000000 


$VECT2 


• UORD 


AVECT2 


000454 


177170 


SBASE: 


.UORD 


ABASE 


0004 S6 




SETEND 










•MEXIT 







APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NlfCER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIROI«#«NT TABLE 
ENVIROfMENT BYTE 
ENVIROfWENT MODE BITS 
APT SWITCH REGIS TFR 
USER SWITCHES 
CPU TYPE, OPTIONS 
BITS 15-11=CPU TYPE 

11/04=01.11/05=02,11/20=03,11/40 04.11/45 05 
11/70=06,PDQ=07,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLaATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS,M.S. BYTE 
;;M£M. TYPE,8LK#1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC CORE =001 
300 NSEC 8IP0LAR=002 
500 NSEC MOS=003 
.-.■HIGH ADDRESS ,8LK#1 
MEM.LAST ADDR.=3 BYTES. THIS UORD AND LOU OF '^YPE" ABOVE 
HIGH ADDRESS.f1.S. BYTE 
MEM. TYPE .8LK#2 
MEM.LAST ADDRESS .BLK#2 
HIGH ADDRESS .M.S. BYTE 
MEM. TYPE .8LK#3 
MEM.LAST ADDRESS.BLK#3 
HIGH ADDRESS .M.S.BYTE 
MEM. TYPE .8LK#4 
MEM.LAST ADDRESS. BLMf4 
INTERRUPT VECT0R#1.BUS PRIORI TY#1 
INTERRUPT VECT0R#2BUS PRI0RITY#2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 



CZRXEAO RX02 FMTR PROG MACYll 30(1046) 20-SEP-78 10:48 PAGE 
CZRXEA.P11 20-SEP-78 10:48 APT PARA/IE TER BLOCK 



E 2 
A7-6 



30 
1) 
2) 
1) 
2) 



1) 
1 ) 
1) 
1) 
1 ) 
1) 
1) 
1) 
1) 
1) 



000456 
000456 
000460 
000462 
000464 
000466 
000470 



000000 
000400 
000120 
000120 
000120 
000027 



SEO 0017 



.S8TTL APT PARAMETER BLOCK 



SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



(1) 




000456 




.$X=. 


-.-SAVE CURRENT LOCATION 


n ) 




000024 




.=24 


;SET POWER FAIL TO POINT TO START OF PROGRAM 


(1 ) 


000024 


000200 




200 


' 'FOR APT START UP 


1) 




000044 




.=44 


•POINT TO APT INDIRECT ADDRESS PNTR. 


J) 


000044 


000456 




SAPTHDR 


■.•POINT TO APT HEADER BLOCK 


.1) 
2; 




000456 




. = .$X 


•;RESET LOCATION COUNTER 



.SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
.•INTERFACE SPEC. 



SAPTHD 
SHIBTS 
SMBADR 
STSTM: 
$PASTM 



.WORD 
.WORD 
.WORD 
.WORD 



SUNITM: .WORD 



0 

SMAIL 

120 
120 
120 



TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 



.WORD SETEND-$MAIL/2 ; .'LENGTH MAIL80X-E TABLE (WORDS) 



UNIT 
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APT PARAMETER BLOCK 


6132 






• ***** 


FLAGS AND COUNTERS 


6133 












6154 


000472 


177170 


RXCSAD: 


177170 


6135 


000474 


177172 


RXDBAD : 


177172 


6136 


000476 


000264 


RXVECT: 


264 


6137 


000500 


000001 


SECTR 




1 


6138 


000502 


000000 


TRACK 




0 


61 39 


000504 


000324 


SUR: 




#SWREG 


6140 


000506 


000000 


DENS: 




0 


6141 


000510 


000000 


REGS: 




0 


6142 


000512 


000000 


VECT: 




0 


6143 


000514 


000000 


INI IPG: 


0 


6144 


000516 


000000 


DBGFLG: 


0 


6145 


000520 


000000 


LSIFLG: 


0 


6146 


000522 


000000 


PCNTR 




0 


6147 


000524 


000000 


TOB: 




0 


6148 


000526 


000000 


TIB: 




0 


6149 


000530 


000000 


ANSWER : 


0 


6150 


000532 


000000 


TTWAIT: 


0 


6151 


000534 


000000 


CSR: 




0 


6152 


000536 


000000 


ESR: 




0 


6153 


000540 


000000 


WDOT: 




0 


6154 


000542 


000000 


CMD: 




0 


6155 


000544 


000000 


CSRMSK : 


0 


6156 


000546 


000000 


CSRCMP: 


0 


6157 


000550 


000000 


ESRMSK: 


0 


6158 


000552 


000000 


ESRCMP: 


0 


6159 


000554 


000000 


TSTERR: 


0 


6160 


000556 


000000 


SOUMLT: 


0 


6161 


000560 


000000 


S1UMLT: 


0 


6162 


000562 


000000 


TEMPI 




0 


6163 


000564 


000000 


TEMP2 




0 


6164 


000566 


000000 


TEMP3 




0 


6165 


000570 


000000 


BTRPFL: 


0 


6166 


000572 


000000 


SYSMSG: 


0 


6167 


000574 


000000 


SYSFLG: 


0 


6168 


000576 


000000 


STFLG 




0 


6169 


000600 


000000 


TMSGAD: 


0 


6170 


000602 


000000 


HDRFLG: 


0 


6171 


000604 


000000 


ERRTYP: 


0 


6172 


000606 


000000 


SYSERR: 


0 


6173 


000610 


000000 


SUC: 




0 


6174 


000612 


000000 


SOAV: 




0 


6175 


000614 


000000 


SlAV: 




0 


6176 


000616 


000000 


SORDY 




0 


6177 


000620 


000000 


SlRDY 




0 


6178 


000622 


000000 


SOCMD 




0 


6179 


000624 


000000 


S1CMD 




0 


6180 


000626 


000000 


SODN: 




0 


6181 


000630 


000000 


SIDN: 




0 


6182 


000632 


000000 


TTITF6: 


0 


6183 


000634 


000000 


ENDFT8: 


0 



RX02 CSR ADDRESS 
RX02 D8R ADDRESS 
RX02 VECTOR ADDRESS 
SECTOR ADDRESS 
TRACK ADDRESS 
SWITCH REG AC DRESS 
DENSITY WORD 
REGISTER ADDRESS BUFFER 
VECTOR ADDRESS BUFFER 
PROGRAM INITIALIZE FLAG 
DEBUG FLAG 

LSI OR SWITCHLESS PROCESSOR FLAG 

PASS COUNTER 

TYPE OUTPUT BUFFER 

TYPE INPUT BUFFER 

ANSWER TO QUESTION BUFFER 

TTY WAIT FLAG 

RXCS TEMP STORE 

RXES TEMP STORE 

WORD FOR OUTPUT 

RX comwD 

RXCS MASK WORD 

RXCS COMPARE WORD 

RXES MASK WORD 

RXES COMPARE WORD 

TEST ERROR FLAG 

WATCHDOG MULTIPLER SYSTEM^fQ 

WATCHDOG MULTIPLER SYSTEM*1 



BUS TRAP FLAG 

SYSTEM MESSAGE BUFFER 

SYSTEM FLAGS 

- START PROGRAM FLAG 
MESSAGE ADDRESS-HEADER 
HEADER FLAG 
ERROR TYPE 
SYSTEM ERROR 
SYSTEM UNDER CONTROL 
SYSTEMIC AVAILABLE 
SYSTEW1 AVAILABLE 
SYSTEM»0 READY 
SYSTEM»1 READY 
SYSTEMTO COMMAND WORD 
SYSTEM»1 COMMAND WORD 
SYSTEM*0 DONE FLAG 
SYSTEnVI DONE FLAG 
TTY INTERRUPT FLAG 

DO NOT REMOVE THIS L^EL 



G 2 
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61 85 




001000 








1 AAA 

. =1000 




6186 










.S8TTL 


MODULE 


0.0 - PROGRAM 












• 






61oo 
















6189 


001000 


0\270t 


001 000 




START : 


liov 


fflOOO.SP 


61 W 


00100s 


AAC AT^ 
\J\J0\j5f 


AAAC 1 

000516 






CLK 


DoGr LG 


6191 


OOlOlU 


AAC AT7 

005037 


f\f\i\t A^ 

000406 






CLR 


# ft * c c 

•PASS 


olV*: 


00101*» 


AAC AT7 


AAAC7A 
0005^0 






CLH 


ft T Oft r 1 
BTKPr L 


6193 


AA1 AOA 

0010^:0 


AAC7AA 

005/ 00 






f A A A ■ 

lAOO: 


T C T 

T5T 




619s 


AA1 An 

0010<:<: 


001 115 








BNE 


C AAA 


ol9> 


001 O^H 


A1 07/V/ 
Ol£/0*» 


AI / A/ A 

OIhOsO 






MOV 




6196 


OUIO^ 


OOh/ 3/ 


A1 7979 








ft^ T T Al IT 

PC, T TOUT 


A1Q7 
019f 


UUIUjh 




000001 


PAA/ 9A 


1 DAA . 

I BOO: 


0 T TO 

01 TS 


MAOTCkiiy #Ckiiy 

/TAP IcNV.JcNV 


Ol9o 


0010*»£ 










OC A 


1 OAA 

LBOO 


6 




1 99777 
ICC/ 9/ 


nnninn 
UUUIUU 


nnnj 97 
UUUsc/ 


f mn • 
i LOU: 


CMra 


»10U,»CrUUr*l 




UU IUjc 


nni nnA 
UUlUOo 








BNt 


1 rAA 
LCOO 


OcU 1 


AA1 AC/ 


ni 9777 

U 1 c/ J/ 


<WWI1 
UUUUv 1 


nnn«; on 
0005 cU 




MAvy 

nuv 


»1 ,LoirLG 


oc\Jc 


UU lUOc 


inAZ97 
IUO*»c/ 


UUUcUU 






MTOC 

n 1 ro 


#9AA 

•cUU 


OCVJ 


nni AAA 


UUUhUj 








DO 


c rAA 

tcoo 


OcUh 


AAI A7A 


ni 9777 
U 1 C / f f 


nnn7An 
UUU9*»U 


1 7A7nn 
1 /O/UU 


I rnn ■ 
LlUU: 


nuv 


*rH/ ,aP5W 




nnin7A 


m 9777 
U 1 c / jf 


nnnz.99 

UUUmcc 


nnnsnA 

UUUDUh 


CLUU. 


nuv 


JMCLJDC/^ CUD 


OcUD 


nni 1/v. 

UU 1 1 w** 


1 1 77nn 


UUU*»9U 






MAV/Q 

rwvo 


Ct/CrT1 DA 

»Vc (.1 1 , HO 






nA97nn 
U*»c /UU 


1 77An.O 
1 / / ••Uv 








*i 77Ann DA 


OcUO 




ni 979n 


ni PAnz. 
U IchU** 






nuv 






Uvl IcU 


ni P71 n 

U Ic r 1 U 


UUUjsU 






MAU 

nuv 


i*7An / DA > 




nnii?A 


ni 7777 


nnnASA 

UUUm9*» 


nnnA79 

UUU*» r c 




MAW 

nuv 




Oc 1 1 


nni 1 TP 

UU 1 1 JC 


nnz. 777 

UUn / 9/ 


nn99nA 






tALL 


AU 1 o 1 


Oc 1 c 


nni 

(A/ 1 I jO 


ni 7777 




nnn7i a 
UUU J 1 *» 




MAU 

nuv 


n A L JiAD « Kt UdU 


Oc 1 J 




UUUh*»*» 








QD 

on 


caaa 


Oc l*» 


AAI 1/.A 

UU 1 IsO 


n/.9777 


nnninn 
UUU IvU 


1 771 9/ 

1 / / 1 CH 


I onn • 
LcSUU: 


D 1 r 


»BJ T6«aTKd 


Oc 1 J 


nni 1 ^A 


ni 9777 
U 1 c f f f 


nni 9nn 

UU 1 CVrJ 


1 771 7A 

1 / / 1 JO 




nuv 


Ml C f TDD ADTDD 


APIA 
Oc lO 


nni 1AP 

\AJ \ lOC 


ni 9777 
\}\C( 1 I 


nnn9nn 

UUUcUU 


1 771 79 




nuv 


«9An aOTOD9 

«cUU#aalKr^ 


API 7 
Oc 1 ' 


nnii7n 


ni 9777 
U 1 Cf ' ' 


nnnTAn 

UUUjhU 


1 7AAnn 

1 / OOUU 




MAI/ 

nuv 


i#7AA ADCLi 


Oc 10 


nm 1 7A 

Uw M /O 


nnnAn«« 

UUU*»Uj 








DO 
OA 


cDOO 


Oc ly 


nni pnn 

UU 1 cUU 


m 9777 
U ! c f 


\AAjyjyj 1 


UUU9cU 


1 C t TDD • 


MAI/ 

nuv 


i#i 1 c Tf 1 r 
,LSlr Lb 


OccU 


nni ^nA 


1 nAZ.97 
1 UO*»cf 


AAA9nn 

UUUcUU 






MTDC 


»^00 


Occ 1 


nni PIP 

UU Ic ic 


nn^n77 

UUPU/ / 


1 771 n9 
1 / / 1 Uc 




cf\nn • 


n D 


^OTDD 
•SI W 


Occc 


nni PI A 

Uv Ic lO 


nn^n77 

UU9U/ 1 


1 771 nn 

1 / / I UU 






^1 o 




A557 
Occ J 


nni 999 

UUiccc 


nn/. 777 

UUh/P/ 


nni ACA 

UU l*i9o 






CALL 


AD t AJT 

OrJNT 


Occ*» 


nni 9PA 

UU IccO 


ni 77n^ 

U 1 jf Uj 


nnn7in 
UUU J 1 V 






nuv 


tyC^TA AC 

VcCT0,R5 


Occ J 


nni P'TP 

UU 1 CJC 


ni 979^ 
U 1 c f c J 


ni 9AnA 

U 1 C*»U«» 






nuv 


ilDW TAJTA /DC\^ 

wHXiNFU, VK5^ ♦ 


A9PA 
OccO 


nni 91A 

UU IC jO 


m 971 ^ 

\)\cf 19 


UUU3*»U 






MAiy 
MOV 


Moa7 /oC\ 


APP7 

OCCf 


nni PAP 

UU 1 cic 


m 77ns 

U 1 Jf U9 


nnn7i p 

UUU J 1 c 






MAt/ 

nov 


WC^Tl DC 

VtC 1 1 ,K5 


Occo 


nni 9AA 

UU lc*tO 


ni 979*; 

U Ic f c J 


U 1 c *» 1 c 






MA(y 

MOV 


•NXiNT 1 - (R5; ♦ 


APPO 


nni PIP 

UU IcPc 


ni P71 

U Icr 1 9 


nnnTAn 

UUUPmU 






MA\y 

nuv 


irDD7 /dC> 


APV» 
Oc 


nni p^A 

UU 1 c jO 


nnsn77 

UUPUjf 


nnns99 




C AAA - 

cAUU: 


r 1 D 
CLK 


PCNTK 


AP71 
Oc-j 1 


nni PAP 

UUICOc 


n7P777 

UPCf f f 


uuu*»uu 


1 7791 A 
1 / / c 1 *» 


f lAA • 


D T T 

oi 1 


t TO DCLJD 

'oi io,aaWH 


6232 


001270 


0OKO4 








oc « 


LJOO 


6233 


001272 


012737 


000400 


000506 




MOV 


#DBLDEN,DENS 


6234 


001300 


000402 








BR 


BEOO 


6235 


001302 


005037 


000506 




LJOO: 


CLR 


DENS 


6236 


001306 


012702 


000524 




BEOO: 


MOV 


#T0e,R2 


6237 


001312 


012700 


000634 






MOV 


#ENDFTB.RO 


6238 


001316 


005022 






BFOO: 


CLR 


(R2)* 


6239 


001320 


020200 








CMP 


R2.R0 


6240 


001322 


103775 








BLO 


BFOO 



SEQ 0019 

TART AND CONTROL 



SET STACK POINTER 
CLEAR DEBUG FLAG 
CLEAR APT PASS COUNTER 
CLEAR BUS FRAP FLAG 
If PRINT HEADER 
INDICATED. THEN 
SETUP TITLE MSG 
PRINT TITLE 



IF APT MODE CAPT3 

TRUE, THEN CAPT3 

IF CPU IS CAPTJ 

LSI/O-eUS. THEN [APT] 

SET LSI PROCESSOR FLAG [APTJ 

SET LSI PRIORITY [APT] 

CAPTJ 

SET PDP-11 PRIORITY [APTJ 

SET SOFTWARE SWITCH ADDRESS [APT] 

GET VECTOR FROM ETABLE CAPTJ 

CLEAR TOP BYTE RO CAPTJ 

LOAD INTERRUPT ADR IN VECTOR CAPTJ 

LOAD PRIORITY CAPTJ 

SET REGISTER BASE FROM ETABLE CAPTJ 

CALL ADDRESSING TST CAPTJ 

SET SYSW BUS ADDR CAPTJ 

BR TO END 'A' CAPTJ 

DISABLE TTY KEYBOARD INTERRUPTS CUSERJ 

SET BUS TRAP FOR LSI TRAP CUSERJ 

SET UP PROCESSOR PRI-6US TRAP CUSERJ 

IF PROCESSOR IS CUSERJ 

AN LSI. THEN CUSERJ 

SET LSI PROCESSOR FLAG CUSERJ 

SET LSI PROCESSOR PRIORITY CUSERJ 

RESET BUS TRAP CUSERJ 

RESET BUS TRAP CUSER] 

CALL GET USER INPUT (MOD 1 .0) CUSERJ 

GET SYS*0 VECTOR CUSERJ 

SET SYSTEM*© VECTOR CUSERJ 

SET PROCESSOR PR I CUSERJ 

GET SYS#1 VECTOR CUSERJ 

SET SYSTEMfTI VECTOR CUSERJ 

SET PROCESSOR PRI CUSERJ 
CLEAR PASS COUNTER 



IF SWITCH REG HAS DOUBLE DENSITY BIT 
SET, THEN 

SETUP 0ENSITY=DOUBLE 

BR TO BEGIN DO 'E' 

SETUP DENSITY=SINGLE 

SET BEGINNING OF TABLE 

SET END OF TABLE 

CLEAR TABLE OF FLAGS + COUNTERS 

DO UNTIL 

END OF TABLES DONE 
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001 \'>U 




0O0S16 

www J 1 H 






1 nil. 






001 330 


006737 


V/wc J 1 H 








eye run 


6243 


001334 


1 3? 737 


000001 

\J\J\/\J\J \ 


0004 ?0 

WW w"t C w 


i wwV ■ 




#APTENV tPNV 


6244 


001542 


00100? 

WW 1 www 








ONE 


FGOO 


6245 


001344 


004737 


007676 

WW f w > w 






CALL 


OTSYDN 


6246 


001350 


012704 

VIC* 


014164 




FGOO' 


MOV 


iM^G6 R4 


6247 


001354 


004737 


013232 






JSR 


PC TTOUT 

» V » » » WW 1 


6248 


001360 


005237 

WW ^ ' ' 


000532 






INC 


TTUAJ T 


6249 


001364 


01 3703 


000522 

www C 






MOV 


PCNTR.R3 


6250 


001370 


004737 


013346 






JSR 


PC OCTP 


6251 


001 374 


005237 


000522 






INC 


PCNTR 


6252 


001400 


013737 


000522 


000406 

w V w^ WW 




MOV 


PCNTR tPASS 


6253 


001 406 

WW 1 » \^^J 


013700 


000042 

W WW V" b 




ihoo- 

1 » IVw • 


MOV 


3^42 RO 


6254 


001412 


001407 










1 100 


6255 


001414 


00503? 


000042 

V'w W~ L 






CLR 


a#42 


6256 


001420 


000005 








RESET 




6257 


001422 


004710 






SENDAD : 


JSR 


PC, (RO) 


6258 


001424 


000240 

WWVt ~ V 








NOP 

1 ww» 


6259 


001426 


000240 








NOP 




6260 


001430 


000240 








NOP 




6261 


001432 


032737 


000100 


000574 


1100: 


BIT 


#100.SYSFLG 


6262 


001440 


001401 








BEQ 


EIOO 


6263 


001442 


000777 






1$: 


BR 


1$ 


6264 


001444 


000005 






EJOO: 


RESET 




6265 


001446 


005037 


000532 






CLR 


TTyAIT 


6266 


001452 


000137 


001306 




ENDOO: 


JMP 


BEOO 


6267 










m 





CONTROL SEQ 0020 

.-SET PROGRAM INITIALIZE FLAG 

;G0 FORMAT SCHEDULED SYSTEMS (MOD 2.0) 

;IF APT MODE 

.•FALSE, THEN 

.■CALL OUTPUT SYSTEM DONE (MOD 3.0) 

;SET END OF PASS MSG 
.•PRINT END OF PASS 
;SET TTY WAIT FLAG 

.•PRINT PASS NUMBER 

;8UMP PASS COUNTER 

;8UMP APT PASS COUNTER 

;IF ACT 

.-MODE, THEN 

.•ABORT THIS PROGRAM 

;ACT HOOKS 
; • DO NOT 

REMOVE 

THESE NOP'S * 

;IF IDLE MODE 
.SET, THEN 
.'IDLE LOOP 

•CLEAR TTY WAIT FLAG 
;D0 NEXT PASS 
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SEO 0021 



6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 

6293 

6294 

6295 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6308 

6309 

6310 

6311 

6312 

6313 

6314 

6315 

6316 

6317 

6318 

6319 

6320 

6321 



CAJ 



[8] 



CCJ 



,S8TTL MODULE 1.0 - OPERATOR INTERFACE 

;8EGINR0UTINE (/iODULE 1.0 - GET USER INPUT) 
SET SOFTWARE SWITCH REG ADDRESS 
SETUP t PRINT '>^ELP?" 
CALL GET ANSWER 
'F ANSWER=YES 
THEN 

SETUP t PRINT HELP FILE 

END IF 

SETUP t PRINT "SET DISKETTE TO SINGLE DENSITY? (V OR N)" 
CALL GET ANSWER 
IF ANSWER=YES 
THEN 

SET DENS t SOFT SWITCH REG DENSITY BIT=SINGLE DENSITY 
: ELSE 

SET DENS & SOFT SWITCH REG DENSITY BIT=DOUeLE DENSITY 

END IF 

SETUP & PRINT 'VERIFY DISKETTE CRC (ALL TRACKS)? (Y OR N)" 
CALL GET ANSWER 
IF ANSWERsYES 
: THEN 

SET SOFT SWITCH REG=CRC ALL BIT 
: ELSE 

CLEAR SOFT SWITCH REG=CRC ALL BIT 

END IF 

SET <SUC>=0 

SETUP & PRINT 'TLOPPY SYS #0 ADDRESS CHANGE? (Y OR N)" 
CALL GET ANSV^R 
IF ANSWER=YES 
: THEN 

SET YES ANSWER FLAG 
: ELSE 

CLEAR YES ANSWER FLAG 

ENDIF 

CALL GET SYSTEM BUS ADDRESS 

CALL CHECK SYSTEH BUS ADDRESS (SEE IF BOOT SYSTEM) 
SET SOFT SWITCH REG=SYS *0 AVAILABLE 

SETUP t PRINT "IS SECOND FLOPPY SYSTEM AVAILABLE? (Y OR N)" 
CALL GET ANSWER 
IF ANSWER=YES 
: THEN 

SET <SUC>=1 
SET YES ANSWER FLAG 
CALL GET SYSTEM BUS ADDRESS 
: CALL CHECK SYSTEM BUS ADDRESS (SEE IF BOT MEDIA) 
SET SOFT SWITCH REG=SYS #1 AVAILABLE 

ENDIF 

IF DEBUG FLAG=SET [F] 
: THEN " 

CALL GET SOFT SWITCH REG 

ENDIF 
;ENDROUTINE 



CD] 



CE] 
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63? 5 










OPINT: 






632A 


001456 


012737 


000324 


000504 


MOV 


#SUREG.SWR 


6325 


001464 


012704 


015726 






MOV 


4'MSG43,R4 


6326 


001470 


004737 


013232 






CALL 


TTOUT 


6327 


001474 


004737 


012624 






CALL 


GETANS 

4^' /.ANSWER 

EAIO 


6328 


001500 


122737 


000131 


000530 


IA10: 


CMP8 


6329 


001506 
001510 


001004 








BNE 


6330 


012704 


015300 






MOV 


<mSG39,R4 


6331 


001514 


004737 


013232 






CALL 


TTOUT 


6332 


001520 


012704 


016045 




EAIO: 


MOV 


4f1SG45,R4 


6333 


001524 


004737 


01 3232 






CALL 


TTOUT 


6334 


001530 


004737 


012624 






CALL 


GETANS 


6335 


001534 


122737 


000131 


000530 


1810: 


CMP8 


#'Y,ANSWER 


6336 


001542 


001004 








BNE 


LfllO 


6337 


001 544 


042777 


000400 


176732 




BIC 


mNBIT.SSWR 


6338 


001552 


000403 








BR 


E810 


6339 


001554 


052777 


000400 


1 76722 


L810: 


BIS 


#DENBIT,aSWR 


6340 


001562 


012704 


016125 




EBIO: 


MOV 


«nSG46,R4 


6341 


001566 


004737 


013232 






CALL 


TTOUT 


6342 


001572 


004737 


012624 






CALL 


GETANS 
4f'y. ANSWER 


6343 


001576 


122737 


000131 


000530 


IC10: 


CMPB 


6344 


001604 


001004 








BNE 


LCIO 


6345 


001606 


052777 


000200 


176670 




BIS 


A^CRCALL^aSWR 


6346 


001614 


000403 








BR 


EC10 


6347 


001616 


042777 


000200 


176660 


LC10: 


BIC 


4rCRCALL ,aSWR 


6348 


001624 


005037 


000610 




EC10: 


CLR 


sue 


6349 


001630 


012704 


016206 






MOV 


«f1SG47,R4 


6350 


001634 


004737 


013232 






CALL 


TTOUT 


6351 


001640 


004737 


012624 






CALL 


GETANS 
f'y, ANSWER 


6352 


001644 


122737 


000131 


00053C 


ID10: 


CMPB 


6353 


001652 


001002 








BNE 


LD10 


6354 


001654 


005202 








INC 


R2 


6355 


001656 


000401 








BR 


ED10 


6356 


001660 


005002 






LD10: 


CLR 


R2 


6357 


001662 


004737 


001766 




ED10: 


CALL 


GTSYAO 


6358 


001666 


004737 


002422 






CALL 


CKSYAD 


6359 


001672 


052777 


000001 


1 76604 




BIS 


#i,asvM 


6360 


001700 


012704 


016271 






MOV 


/mSG48,R4 


6361 


001704 


004737 


013232 






CALL 


TTOUT 


6362 


001710 


004737 


012624 






CALL 


GETANS 

f 'y.ANSWER 


6363 


001714 


122737 


000131 


000530 


IE10: 




6364 


001722 


001013 








BNE 


IF10 


6365 


001724 


012737 


000001 


000610 




MOV 


#1,SUC 


6366 


001732 


005202 








INC 


R2 


6367 


001734 


004737 


001766 






CALL 


GTSYAD 


6368 


001740 


004737 


002422 






CALL 


CKSYAD 


6369 


001744 


052777 


000002 


176532 




BIS 


#2,aswR 


6370 


001752 


005737 


000516 




If 10: 


TST 


D6GFLG 


6371 


001756 


001402 








BEO 


XIO 


6372 


001760 


004737 


002346 






CALL 


CTSWR 


6373 


001764 


000207 






XIO: 


RETURN 




6374 

















SEQ 0022 



SET SOFTSWITCH REG ADR 
SETUP MSG 'T^ELP? ' 
PRINT 

CALL GET OPERATOR ANSWER 

IF ANSWER 

IS YES, THEN 

SETUP MSG — > HELP FILE 

PRINT 

SETUP MSG "SET DISKETTE TO SINGLE DENSITY: (Y OR N)?" 
PRINT 

CALL GET OPERATOR ANSWER 
IF ANSWER 

IS YES, (SET SINGLE DENSITY), THEN 
CLEAR DENSITY BIT IN SOFT SWITCH REG 
8R TO END '8' 

SET DENSITY BIT IN SOFT SWITCH REG 

SETUP MSG 'VERIFY DISKETTE CRC (ALL TRACKS): (Y OR N)?" 
PRINT 

CALL GET OPERATOR ANSWER 
IF ANSWER 
IS YES, THEN 

SET CRC ALL FLAG IN SOFT SWITCH REG 
BR TO END 'C 

; CLEAR CRC ALL FLAG IN SOFT SWITCH REG 
SET <SUC> = 0 

SETUP MSG 'TLOPPY SYS 0 ADDRESS MODIFICATION (Y OR N)?" 
; PRINT 

CALL GET OPERATOR ANSWER 
;IF ANSWER 
:IS YES, THEN 
SET YES ANSWER FLAG 
BR TO END 'D* 
; CLEAR YES ANSWER FLAG 
iCALL GET SYSTEM BUS ADR & TEST 
iCALL CHECK SYSTEM ADR - MEDIA PROTECT 
SET SYSTEM*© AVAIL 

iSETUP MSG 'SECOND FLOPPY SUBSYSTEM (Y OR N)^" 
; PRINT 

;CALL GET OPERATOR ANSWER 
;IF ANSWER 
;IS YES THEN 
;SET <SUC> = 1 
;SET YES ANSWER FLAG 
;CALL GET SYSTEM BUS ADR & TEST 
CALL CHECK SYSTEM ADR - MEDIA PROTECT 
;SET SYSTEMirl AVAIL 
;IF DEBUG FLAG 
;SET, THEN 

;GET SOFTWARE SWITCH REG 
; RE TURN 



000510 
000512 
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6376 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

638A 

6385 

6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 

6404 

6405 

6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 
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MODULE 1.1 - GET SYSTEM BUS ADDRESS ft TEST 

.S8TTL MODULE 1.1 - GET SYSTEM BUS ADDRESS ft TEST 

BEGIN ROUTINE (MODULE 1.1. GET SYSTEM BUS ADDRESS t TEST) 
BEGIN DO 

GET <SUC> REGISTER t VECTOR ADDRESSES 
SETUP I PRINT BUS ADDRESS 
GET NEW BUS ADDRESS 
SET UP BUS ADDRESS 
SETUP t PRINT VECTOR ADDRESS 
GET NEW VECiOR 
SETUP VECTOR 
CLEAR BUS-TRAP-FLAG 
CALL ADDRESS TEST 
DO UNTIJ. BUS TRAP.FLAG=0 
SET <SUC> REGISTER & VECTOR ADDRESSES 
ENDROUTJNE 



SFO 0023 



001766 
001770 
001772 
001776 
002004 
002012 
002014 
002016 
002022 
002026 
002032 
002036 
002042 
002046 
002052 
002056 
002062 
002066 
002072 
002076 
002102 
002106 
002112 
002116 
002122 
002126 
002132 
002136 
002142 
002150 
002154 
002160 
002162 
002166 
002174 
002202 



000240 
000240 
004737 
016137 
016137 
005702 
001450 
004737 
012704 
004737 
013703 
004737 
012705 
012701 
012702 
012703 
004737 
012704 
004737 
013703 
004737 
012705 
012701 
012702 
012703 
004737 
013700 
005037 
013737 
004737 
005737 
001303 
004737 
013761 
013761 
000207 



010126 
000314 
000310 



011132 
014072 
013232 
000510 
013346 
000510 
000006 
177500 
177100 
012652 
014127 
013232 
000512 
013346 
000512 
000003 
000300 
000250 
012652 
000512 
000570 
000510 
002204 
000570 

010126 
000510 
000512 



000472 



000314 
000310 



GTSYAD: 


NOP 






BA11 : 


NOP 








CALL 


SSUCOF 


"CALL SET <SUC> OFFSET 




MOV 


RE6S0(R1>,REGS 


•GET <SUC> REGISTER ADR 




MOV 


VECT0<R1),VECT 


•GET <SUC> VECTOR ADR 


181 1 : 


TST 


R2 


•IF YES FLAG 




BEQ 


E811 


;SET. THEN 




CALL 


f»RTSYS 


;CALL PRINT SYSTEM IDENT 




MOV 


4nS64,R4 


;USER MODE 




JSR 


PC. TTOUT 


•REQUEST REGISTER ADDRESS 




MOV 


RcGS,R3 






JSR 


PC. DC TP 


rPRINT CURRENT ADDRESS 




MOV 


«RE6S.RS 


:SET ADDRESS SAVE LOG 




MOV 


#6.R1 


;SET SIZE OF RESPONSE 




MOV 


#1 77500, R2 


rSET UPPER LIMIT 




MOV 


#177100.R3 


;SET LOWER LIMIT 




JSR 


PC.TTR 


; GO GET RESPONSE 




MOV 


4«SG5.R4 






JSR 


PC.TTOUT 


•REQUEST VECTOR 




MOV 


VECT.R3 






JSR 


PC.OCTP 


•PRINT CURRENT VECTOR 




MOV 


#VECT.R5 


;SET ADDRESS SAVE LOC 




MOV 


#3,R1 


;SET SIZE OF RESPONSE 




MOV 


#300,R2 


;SET UPPER LIMIT 




MOV 


#250.R3 


.SET LOWER LIMIT 




JSR 


PC.TTR 


;G0 GET RESPONSE 




MOV 


VECT.RO 


;GET VECTOR 


E811; 


CLR 


BTRPFL 


r CLEAR BUS TRAP FLAG 




MOV 


REGS.RXCSAD 


;SET REGISTER ADR 




CALL 


ADTSr 


rCALL ADDRESSING TEST 


UA11: 


TST 


BTRPFL 


,D0 UNTIL BUS TRAP FLAG 




BNE 


BA11 


.•EQUALS 0 




CALL 


SSUCOF 


;CALL SET <SUC> OFFSET 




MOV 


RE6S.REGS0(R1) 


;SET <SUC> REGISTER ADR 




MOV 


VECT.VECTO(RI) 


;SET <SUC> VECTOR ADR 


XII: 


RETURN 


.•RETURN 
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6432 .S8TTL ADDRESSING TEST 



6433 
















6434 
















6435 


002204 


000005 






ADTST: 


RESET 


#MSG12,TMSGAD 


6436 


002206 


012737 


014367 


000600 




nov 


6437 


002214 


012777 


012474 


1 76076 




nov 


#TRAP,a6TRP 


6438 


0^2222 


012777 


000340 


176072 




MOV 


#340.a6TRP2 


6439 


0^/2230 


013701 


000472 






MOV 


RXCSAD.R1 


^i440 


C02234 


005711 






AD1 : 


TST 


(R1) 


6441 


002236 


000240 








NOP 


#2.R1 


6442 


002240 


062701 


000002 






ADD 


6443 


002244 


005711 








TST 


(R1) 


6444 


002246 


000240 








NOP 




6445 


002250 


005737 


000570 






TST 


BTRPFL 


6446 


002254 


001427 








BEQ 


AD2 


6447 


002256 


032777 


020000 


176220 




BIT 


«BIT13,aSUR 


6448 


002264 


001004 








BNE 


2S 


6449 


002266 


012704 


014326 






MOV 


imSG11,R4 


6450 


002272 


004737 


013232 






JSR 


PC, T TOUT 


6451 


002276 


000240 






2S: 


NOP 




6452 


002300 


004737 


012262 






JSR 


pcesiNiT 


(1) 


002304 


032777 


001000 


176172 




BIT 


#SW09,aSUR 


(1) 


002312 


001350 








BNE 


AD1 


(1) 


002314 


004737 


012240 






JSR 


PC, ERRSET 


(2) 


002320 


000001 








.WORD 


#1 


(1) 


002322 


005777 


176156 






TST 


asuR 


(1) 


002326 


100001 








BPL 


1$ 


(1) 


002330 


000000 








HALT 




(1) 


002332 


000240 






1$: 


NOP 




6453 


002334 


005077 


175760 




AD2: 


CLR 


iBTRP 


6454 


002340 


005077 


175756 






CLR 


aBTRP2 


6455 


002344 


000207 






ADTSTX: 


RTS 


PC 



6456 
6457 



SEQ 0024 



INITIALIZE BUS 

SET TEST MSG HEADER 

SET TRAP HANDLER ADR 

GET CSR ADDRESS 
REF CS REG 

IF ADDRESS IS BAD, BUS TRAP WILL OCCUR 
SET ADDRESS OF DB 
REF DB REG 

IF INITIAL ADDRESS TEST 

DID NOT PASS, THEN 

IF INHIBIT ERROR REPORT 

NOT SET THEN 

SET UNIT NOT RESPONDING 

PRINT MSG 

CHECK SWR FOR BUS INITIALIZE 
CHECK FOR LOOP ON ERROR 
60 TO LOOP ERROR 

FATAL ERR * 1 - UNIT NOT RESPONDING TO ADDRESS 
CHECK FOR HALT ON ERROR 
HALT IF SET 

:<UNIT NOT RESPONDING TO ADDRESS> 

CLEAR BUS TRAP 

HAM>LER 
; RE TURN 
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.S8TTL MODULE 1.2 - GET SOFTWARE SWITCH REGISTER 



SEQ 0025 



6459 








6460 








6461 








6462 


002346 


012704 


014002 


6463 


002352 


004737 


013232 


6464 


002356 


013703 


000324 


6465 


002362 


004737 


013334 


6466 


002366 


012737 


000324 


6467 


002374 


012705 


000324 


6468 


002400 


012701 


000006 


6469 


002404 


012702 


\77777 


6470 


002410 


012703 


000000 


6471 


002414 


004737 


012652 


6472 


002420 


000207 




6473 








6474 








6475 








6476 








6477 








6478 








6479 








6480 








6481 








6482 








6483 








6484 








6485 








6486 








6487 








6488 








6489 








6490 








6491 








6492 








6493 








6494 








6495 


002422 


000240 




6496 


002424 


122737 


000015 


6497 


002432 


001026 




6498 


002434 


022761 


177170 


6499 


002442 


001022 




6500 


002444 


004737 


011132 


6501 


002450 


012704 


015140 


(1) 


002454 


004737 


013232 


6502 


002460 


012704 


017065 


(1) 


002464 


004737 


013232 


6503 


002470 


004737 


013156 


6504 


002474 


122737 


000015 


6505 


002502 


001372 




6506 


002504 


105037 


000041 


6507 


002510 


000240 




6508 


002512 


000207 




6509 








6510 









000504 



\j 1 own ■ 










JSR 


PCTTOUT 






MOV 


SUREG,R3 


SET CURRENT SWITCH REG 




JSR 


PC.OCTPE 


■PRINT CURRENT SWITCH REG 




MOV 


fSWREG.SWR 


-SET SOFTWARE SWITCH REG ADR 




MOV 


/rSWREG,R5 


•SET ADDRESS OF SWITCH REG 




MOV 


#6,R1 


•SET SIZE OR RESPONSE 




MOV 


#1^7777.R2 


■SET UPPER LIMIT 




MOV 


*0.R3 


■SET LOWER LIMIT 




JSR 


PCTTR 


•GO GET RESPONSE 


XI 2: 


RETURN 




; RE TURN 


• 

.S8TTL 


MODULE 


1.3 - CHECK SYSTEM ADDRESS 



8E6INR0UTINE (MODULE 1.3 - CHECK SYSTEM ADDRESS) 

IF LOAD MEDIA PROTECT BYTE=RX02 CAD 
THEN 

IF <SUC> ADDRESS=RX02 STANDARD ADDRESS CB] 
THEN 

CALL SYSTEM IDENTIFICATION 

SETUP t PRINT 'REMOVE XXDP MEDIA FROM THIS SYSTEM" 
SETUP I PRINT '-TYPE "CR" WHEN READY" 
BEGINOO CC3 
: CALL TTY INPUT-GET TTY CHARACTER 
DOUNTIL CHARACTER="CR" 
CLEAR MEDIA PROTECT BYTE 

ENDIF 
ENDIF 
ENDROUTINE 



000526 



CKSYAO: 


NOP 


IA13: 


CMPB 




BNE 


IB13: 


CMP 




BNE 




CALL 




MOV 




CALL 




MOV 




CALL 


BC13: 


CALL 




CMPB 




BNE 




CLRB 


EA13: 


NOP 


XI 3: 


RETURN 



#i5,a#4i 

EA13 



IF RX02 
WAS LOAD MEDIA. 



THEN 



#1 771 70,REGS0(R1); IF SYSTEM ADDRESS 



EA13 
PRTSYS 
*MS634.R4 
TTOUT 
«nSG58,R4 
TTOUT 
TTIN 
#15,TIB 
BC13 
a#41 



THEN 



SET = RX02 STANDARD ADDRESS, 
CALL PRINT SYSTEM IDENT 

SET MSG-> 'TiEMOVE XXDP MEDIA FROM BOOT SYSTEM" 
PRINT MSG 

SET MSG-> "-TYPE "CR'" WHEN READY" 
PRINT MSG 

CALL TTY INPUT-GET CHARACTER 
DO UNTIL 

CHARACTER - "CR" 

CLEAR RX02 BOOT MEDIA PROTECTION 

RETURN 



N ? 

CZRXEAO RX02 FMTR PROG NACYll 30(1046) 20-SEP-78 10; A8 PAGE 67-15 
C2RXEA.P11 20-SEP-78 10:A8 MODULE 2.0 - SYSTEM SCHEDULER 



SEO 0026 



6512 

6513 

65U 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

652A 

6525 

6526 

6527 

6528 

6529 

6530 

6531 

6532 

6533 

6534 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 



TAJ 

CBJ 

CCJ 
CD3 

CHJ 
CE3 



.S8TTL MODULE 2.0 - SYSTEM SCHEDULER 

8E6INR0UTINE (MOD 2.0 SYSTEM SCHEDULER) 
SET SYS#0 £ SYS#1 READY BITS 
SET SYS#0 SEL BIT 
SET <SUC> = 0 
SET SYSOAVL = ALL 
CALL INITIALIZE CHECK (MOD 2.1) 
IF SUR = SYSAI SELECTED 
THEN 

SET <SUC>=1 
SET SYS1AVL = ALL 
CALL INITIALIZE CHECK (MOD 2.1) 

END IF 

IF NO SYSTEM AVAIL 
THEN 

SETUP SYSMSG "HO SYSTEM AVAILABLE" 
ELSE 
BEGINDO 

IF SYSO SELECTED 
THEN 

IF SYO DONE=NOTSET 
THEN 

SET <SUC> = 0 
IF SYSO RDY SET 
THEN 

CALL SYSTEM DRIVER (MOD 2.2) 
ELSE 

CALL WATCH DOG SYS#0 (MOD 2.4) 

ENDIF 

END IF 

ENDIF 

IF SYSl SELECTED ZF2 
THEN 

IF SY1 DS0NE=N0TSET CI 3 

THEFi 

SET <SUC> = 1 - 
IF SYSl RDY SET CG3 
THEN 

CALL SYSTEM DRIVER (MOD 2.2) 
ELSE 

CALL WATCH DOG SYSM^ (MOD 2.5) 

ENDIF 

ENDIF 

ENDIF 

CLEAR PROGRAM INITIALIZE FLAG 
CALL UPDATE SYSTEM STATUS (MOD 2.3) 
DO UNTIL ALL SYSTEMS DONE OR NO SYSTEM AVAIL 
SETUP SYSTEM MSG 
ENDIF 

PRINT PRINT SYSTEM MSG 
ENDROUTINE 
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6565 


















6566 


















6567 


002514 


005237 


000616 




SYSCHD; 


INC 


SORDY 


SET SYSO RDY 


6568 


002520 


005237 


000620 






INC 


SIRDY 


SET SYS1 RDY 


6569 


002524 


052777 


000001 


175752 




BIS 


«i.asuR 


SET SYSl SELECT IN SOFT SWITCH REG 


6570 


002532 


005037 


000610 






CLR 


sue 


SET SYS UNDER C0NTR0L=#0 


6571 


002536 


012737 


000017 


000612 




MOV 


#17.S0AV 


SET SYSTEM#0 AVAIL=ALL 


6572 


002544 


004737 


003002 






CALL 


INITCK 


CALL INITIALIZE CHECK (MOD 2,1) 


6573 


002550 


052777 


000002 


175726 


IA20: 


BIT 


#2,asuR 


IF SYS *1 


6574 


002556 


001410 








BEQ 


1820 


SELECTED, THEN 


6575 


002560 


012737 


000001 


000610 




MOV 


#1,SUC 
*17.S1AV 


SET SYS UNDER CONTROL =/H 


6576 


002566 


012737 


000017 


000614 




MOV 


SET SYSTEM#1 AVAIL=ALL 


6577 


002574 


004737 


003002 






CALL 


INITCK 


CALL INITIALIZE CHECK (MOD 2.1) 


6578 


002600 


005737 


000612 




IB20: 


TST 


SOAV 


IF SYSTEWO 


6579 


002604 


001007 








BNE 


ID20 


•NOT AVAIL AND 


6580 


002606 


005737 


000614 






TST 


S1AV 


•IF SYSTEMfl 


6581 


002612 


001004 








BNE 


ID20 


•NOT AVAIL, THEN 

SET MSG='>JO SYS AVAIL TO THIS PROG" 
■BR TO END '8' 


6582 


002614 


012704 


016357 






MOV 


#MSG49,R4 


6583 


002620 


000465 








BR 


E820 


6584 


002622 


000240 






BC20: 


NOP 




■BEGIN DO UNTIL 'C 


6585 


002624 


012777 


000001 


1 75652 


ID20: 


BIT 




■IF SYS *0 


6586 


002632 


001421 








BEQ 


IF20 


•SELECTED, THEN 


6587 


002634 


005737 


000626 




IH20: 


TST 


SOON 


;IF SYSO DONE 


6588 


002640 


001016 








BNE 


If 20 


;NOT SET, THEN 


6589 


002642 


005037 


000610 






CLR 


sue 


;SET SYSTEM UNDER CONTROL SYS »0 


6590 


002646 


005737 


000616 




IE20: 


TST 


SORDY 


;1F SYS*0 READY FLAG 


6591 


002652 


001407 








BEQ 


LE20 


;IS SET. THEN 


6592 


002654 


005037 


000616 






CLR 


SORDY 


.CLEAR SYS #0 READY 


6593 


002660 


005237 


007670 






INC 


WATJNO 


;SET WATCHDOG INJT ttO FLAG 


6594 


002664 


004737 


003272 






CALL 


SYSDVR 


;CALL SYS DRIVER (MOD 2.2) 
;8fi TO IF 'F* 


6595 


002670 


000402 








BR 


IF20 


6596 


002672 


004737 


007474 




LE20: 


CALL 


WATCHO 


;CALL WATCH DOG SYS#0 (MOD 2-4) 


6597 


002676 


032777 


000002 


175600 


IF20: 


BIT 


#2,aswR 


;IF SYS *1 


6598 


00270^ 


001422 








BEQ 


EF20 


;SELECTED, THEN 


6599 


002706 


005737 


000630 




II20: 


TST 


SIDN 


;IF SYSl DONE 


6600 


002712 


001017 








BNE 


EF20 


;NOT SET, THEN 


6601 


002714 


012737 


000001 


000610 




MOV 


#1,SUC 


;SET SYSTEM UNDER CONTROL SYS #1 


6602 


002722 


005737 


000620 




IG20: 


TST 


SIRDY 


;IF SYS #1 READY FLAG 


6603 


002726 


001407 








BEQ 


L620 


;IS SET, THEN 


6604 


002730 


005037 


000620 






CLR 


SIRDY 


: CLEAR SYS #1 READY 


6605 


002734 


005237 


007672 






INC 


UATIN1 


;SET WATCHDOG INIT »^ FLAG 


6606 


002740 


004737 


003272 






CALL 


SYSDVR 


;CALL SYS DRIVER (MOD 2.2) 
;8R OT END 'G* 


6607 


002744 


000402 








BR 


EF20 


6608 


002746 


004737 


007572 




LG20: 


CALL 


UATCHI 


;CALL WATCH DOG SYS »^ (MOD 2.5) 


6609 


002752 


005037 


000514 




EF20: 


CLR 


INI TP6 


;CLEAR PROGRAM INITIALIZE FLAG 


6610 


002756 


004737 
00573? 


006570 






CALL 


SYSTAT 


:CALL SYSTEM STATUS (MOD 2.3) 


6611 


002762 


000574 




DC20: 


TST 


SYSFLG 


;D0 UNTIL SYSTEM FLAG 


6612 


002766 


001715 








BEQ 


BC20 


■SET (EITHER SYSTEM DONE OR NO SYS AVAIL) 


6613 


002770 


013704 


000572 






MOV 


SYSMSG.R4 


•SETUP SYSTEM MSG 


6614 


002774 


004737 


013232 




E820: 


CALL 


TTOUT 


rPRINT SYSTEM MSG 


6615 


003000 


000207 






X20: 


RETURN 




•RETURN 


6616 










# 
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SEO 0028 



6618 

6619 

6620 

6621 

6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6638 

6639 

664C 

6641 

6642 

6643 

6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 



.S8TTL MODULE 2.1 - INITIALIZE CHECK 

8EGINR0UTINE (MOD 2.1 - INITIALIZE CHECK 
CLEAR INITIALIZE DROP FLAG 
SET <SUC> ADDRESS i OFFSET 
SET <SUC> COMMAND=INITIALIZE 
INITIALIZE SYSTEM AT ADDRESS 
SETUP DELAY FOR DONE 
CALL DELAY ROUTINE 
SET <SUC> OFFSET 

IF <SUC> CSR = NO DONE BIT SET CA3 
THEN 

SET INITIALIZE DROP FLAG 
CALL PRINT SYSTEM IDENTIFICATION 
SET APT ERROR # 
ELSE 

IF <SUC> CSR=ERR BIT SET CBD 
THEN 

SET INITIALIZE DROP FLAG 
CALL PRINT SYSTEM IDENTIFICATION 
SETUP e PRINT "ERROR BIT SET AFTER INITIALIZE" 
IF <SUC> ESR = AC LOW BIT SET CCJ 
THEN 

: SETUP ft PRINT "AC-IOW-IS FLOPPY SYSTEM POWERED UP?" 
ENDIF 

IF <SUC> ESR = INITIALIZE DONE NOT SET CDJ 
THEN 

SETUP & PRINT "INITIALIZE NOT DONE - RUN DIAG UNLESS ERROR ' 

ENDIF 

SET APT ERROR # 

ENDIF 

IF <SUC> CSR NOT=DOUBLE DENSITY TYPE SYSTEM CED 
THEN 

SET INITIALIZE DROP FLAG 

SETUP ft PRINT '*THIS SYSTEM NOT CAPABLE OF DOUBLE DEN OPS" 

ENDIF 
ENDIF 

IF INITIALIZE DROP FLAG SET CF] 
: THEN 

CLEAR <SUC> AVAIL 

ENDIF 
ENDROUTJNE 
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SEO 0029 



6661 
6662 
6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6671 
6672 
6673 
6674 
6675 
6676 

(1) 
6677 

(2) 
6678 
6679 
6680 
6681 
6682 
6683 

(1) 
6684 
6685 
6686 

(1) 
6687 
6688 
6689 

(1) 
6690 

(1) 

(2) 
6691 
6692 
6693 
6694 
6695 

(1) 
6696 
6697 
6698 
6699 
6700 
6701 
6702 
6703 



003002 

003006 

003012 

003020 

003026 

003034 

003042 

003050 

003054 

003060 

003066 

003070 

003074 

003100 

003104 

003110 

003114 

003116 

003120 

003126 

003130 

003134 

003140 

003144 

003150 

003156 

003160 

003164 

003170 

003176 

003200 

003204 

003210 

003210 

003214 

003216 

003224 

003226 

003232 

003236 

003242 

003246 

003254 

003260 

003262 

003266 



005037 
004737 
012761 
012777 
013737 
012737 
012737 
004737 
004737 
032777 
001014 
005237 
004737 
012704 
004737 
004737 
000002 
000453 
032777 
001433 
005237 
004737 
012704 
004737 
032777 
001404 
012704 
004737 
032777 
001004 
012704 
004737 

004737 
000003 
052777 
001010 
005237 
004737 
012704 
004737 
012761 
005737 
001402 
005061 
000207 



INITCK: 



000622 
175444 
010230 
010226 
010222 



175404 IA21 



003270 
010076 
040000 
040000 
000472 
000040 
000015 
010136 
010126 
000040 

003270 
011132 
016436 
013232 
012240 



100000 175344 1821: 



003270 
011132 
014776 
013232 
000010 

016530 
013232 
000004 

015752 
013232 



175316 IC21: 



175276 ID21: 



ED21 : 

004000 175246 IE21: 



012240 



003270 
011132 
014610 
013232 
000017 
003270 

000612 



003270 000000 



000612 EA21 : 
IF21: 



X21: 
INITDP: 



CLR INITDP 

CALL SSUCAD 

MOV #RXINIT,S0CM0(R1 

MOV #RXINIT,aRXCSAD 

MOV RXCSAD.CSRADR 

MOV #DNBIT.RDYUD 

MOV *15.RVDX 

CALL DELAY 

CALL SSUCOF 

BIT #DNBIT,aRXCSAD 

BNE 1821 

INC INITDP 

CALL PRTSYS 

MOV *MSG52.R4 

CALL TTOUT 

JSR PC.ERRSET 

.WORD 02 

BR EA21 

BIT »ERR8ir.aRXCSAD 

BEO IE21 

INC INITDP 

CALL PRTSYS 

MOV #«S629,R4 

CALL TTOUT 

BIT #ACL0W.8RXDBAD 

BEO ID21 

MOV »nSG54,R4 

CALL TTOUT 

BIT #INI TDN.aRXDBAD 

BNE ED21 

MOV *MSG44,R4 

CALL TTOUT 

JSR PC.ERRSET 

.UORO »Z 

BIT #RX28IT,aRXCSAD 

BNE EA21 

INC INITDP 

CALL PRTSYS 

MOV *MSG23.R4 

CALL TTOUT 

MOV #17.S0AV(R1) 

TST INITDP 

BEO X21 

CLR SOAV(RI) 

RETURN 



.•CLEAR INITIALIZE DROP FLAG 

.•CALL SET <SUC> ADDRESS 

);SET <SUC> COMMAND = INITIALIZE 

INITIALIZE SYSTEM AT <SUC> CSR ADDRESS 

SET ADDRESS FOR DELAY TEST 

SET DONE BIT FOR DELAY TEST 

SET DELAY MULTIPLIER 

DELAY FOR DONE BIT 

CALL SET <SUC> OFFSET 

IF <SUC> fSR DONE BIT 

NOT SET, THEN 

SET INITIALIZE DROP FLAG 

CALL PRINT SYSTEM IDENT 

SET MSG-> 'NO DONE BIT AFTER INITIALIZE" 

PRINT MSG 

FATAL ERR # 2 - NO DONE BIT AFTER INITIALIZE 

BR TO MOD EXIT 

IF <SUC> CSR ERROR BIT 

SET. THEN 

SET INITIALIZE DROP FLAG 
CALL PRINT SYSTEM IDENT 

SET MSG-> 'tRROR BIT SET AFTER INITIALIZE" 
PRINT MSG 

IF <SUC> ESR AC LOW BIT 
IS SET THEN 

SET MSG-> "AC LOW ERROR-IS DISK SYSTEM POWERED UP"*" 
PRINT MSG 

IF <SUC> ESR INITIALIZE DONE BIT 
NOT SET. THEN 

SET MSG-> "INITIALIZE NOT DONE-RUN DIAG UNLESS ERR OBVI 
PRINT MSG 



FATAL ERR # 3 - ERROR BIT SET ON INITIALIZE 

IF <SUC>-DOUBLE DENSITY SYSTEM TYPE 

BIT NOT SET. THEN 

SET INITIALIZE DROP FLAG 

CALL PRINT SYSTEM IDENT 

SET MSG-> "THIS SYS NOT CAPABLE OF DOUBLE DEN OPS" 
PRINT MSG 

SET <SUC> SYSTEM AVAIL 
IF INITIALIZE DROP FLAG 
SET, THEN 

CLEAR <SUC> SYSTEM AVAILABLE 
RETURN 



.•INITIALIZE DW FLAG 
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SEQ 0030 



6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 

6759 

6760 



,S8TTL MODULE 2.2 - SYSTEM DRIVER 

.BEGINROUTINE (MOD 2.2 SYSTEM DRIVER) 

CLEAR WATCHDOG INITIALIZE FLAG FOR <SUC> 
CALL ERROR CHECK ROUTINE (MOD 2.2.5) 

IF THIS SYSTEM AVAILABLE NOT = 0 CAD 

thFn 

BEGINDO Crj 
SET <SUC> DRIVE DONE=GET NEXT COMMAND FLAG 
CLEAR GET NEXT fOMMAND FLAG 
CALL GET NEXT C0^f1AND (MOD 2.2.1) 

IF COMMAND = DONE CDD 
THEN 

SET SUC->SVS.DONE,FLAG 

ELSE 

GET SYSTEM UNDER CONTROL OFFSET 

IF COMMAND = DRIVE #1 SELECTED CED 
THEN 

IF SUC-> DRIVE #1 AVAIL CFJ 
THEN 

IF COMMAND=SJDE #1 SELECTED CCD 
THEN 

IF SUC-> SIDEiTl AVAIL NOT SET CHD 
: THEN 

SET GET NEXT COMMAND FLAG 

ENDIF 

ENOIF 

ELSE 

SET GET NEXT COMMAND FLAG 

ENDIF 
ELSE 

IF SUC-> DRIVE MO AVIAL SET 111 
THEN 

IF COMMAND = SIDE #1 SELECTED CJD 
THEN 

IF SUC-> SIDE *1 AVIAL NOT SET CkD 
: THEN 

SET GET NEXT COfTWND FLAG 

ENDIF 

ENDIF 

ELSE 

SET GET NEXT COMMAND FLAG 

ENDIF 

ENDIF 

ENDIF 

DOUNTIL GET NEXT COMMAND=0 

IF COMMAND ROT ="DONE CLD 
THEN 

IF COMMAND = READ SECTOR CM] 
THEN 

CALL TRK I SECTOR (MOD 2.2.2) 

ENDIF 

CALL DRVR (MOD 2.2.3) 

ENDIF 

ENDIF 
;ENDR0UTINE 
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676P 


















6765 


00527? 


055757 


000514 


004560 


BIS 


INITPG INITT^ 


PA^^ INITIAI I7F Fl AG TO TRArif £ ^FCIOti 




005500 


005057 


005556 






CI R 


GTCMD 


n FAR GFT rOMMAMD Fl AG 


6765 


005504 


004757 


0101 26 






f Al 1 


SSUf OF 


CAM ^FT <Sljr> OFFSFT 




005510 


005261 


007670 








UATIN0(R1 ) 


INCRFMFNT ^Y^TFM UATTH DOG INITIAI 1 7F 


6767 


005514 


004757 


005164 






f Al 1 


FRRCHK 


CAI 1 FRROR CHFCK (MnD ? 2 


6768 


005520 


004757 


0101P6 






f Al 1 


SSUf OF 


CAI 1 SFT <SUf> OFFSFT 


6769 


005524 


005761 


00061? 

WW 1 c 






TST 


^0AV(R1 ) 


IF SYSTEM AVAILABLE 


6770 


003330 


001511 








BEO 


X22 


NOT =0, THEN 


6771 


003332 


053761 


003556 


003560 


BC 22: 


BIS 


GTCMD SODVDN(RI)' 


SFT <SUC> DRIVF DONF =GFT TOMMAND Fl AG 


6772 


003340 


005037 


003556 






CLR 


GTCMD 


■CLEAR GET COMMAND FLAG 


6773 


003344 


004737 


003564 






CALL 


GFTCMD 


■CALL GET COMMAND (MOD ? ? 1) 


677^ 


003350 


005737 


000542 






TST 


CMD 


IF COMMAND 


6775 


003354 


002005 








BGE 


LD22 


EQUALS DONE (=-1) THEN 


6776 


003356 


004737 


010126 






CALL 


SSUCOF 


CALL SET <SUC> OFFSET 


6777 


003362 


005261 


000626 






INC 


S0DN(R1 ) 


■SET SYSTEM DONE FLAG 
■BR TO LWTIL 'C 


6778 


003366 


000451 








BR 


UC22 


6779 


003370 


004737 


010126 




LD22- 


CALL 


SSUCOF 


'CALL SET <SUC> OFFSET 


6780 


003374 


032737 


000020 


000542 


1E22: 


BIT 


ATDRVl CMD 


■IF COMMAND 


6781 


003402 


001422 








BEQ 


1122 


■HAS DRIVE 4^1 SELECTED 


6782 


003404 


032761 


000012 


000612 


IF22: 


BIT 


fl? COAV(RI) 


;IF SYSTEM DRIVE *1 AVAILABLE 


6783 


003412 


001413 








BEQ 


LF22 


■ SE T THEN 


6784 


003414 


032737 


001000 

V V 1 wv 


000542 


1G22: 


BI r 


#SIDE1 CMD 


; IF COMFiAND 


6785 


003422 


001433 








BEQ 


UC 22 


•HAS SIDE # SELECTED 


6786 


003424 


032761 


000010 


000612 


IH22: 


BIT 


*10.S0AV(R1) ', 


:IF <SUC> SIDE #1 AVAILABLE 


6787 


003432 


001027 








BNE 


UC22 


■NOT SET THEN 


6788 


003434 


005237 


003556 






INC 


GTCMD 


-SET GET ''QMMAND FLAG 
-8R TO ENDIF *E' 


6789 


003440 


000424 








BR 


UC22 


6790 


003442 


005237 


003556 




LF22: 


INC 


GTCMD 


;ELSE SET GET COMMAND FLAG 
;8R TO END IF 'E' 


6791 


003446 


000421 








BR 


UC22 


6792 


003450 


032761 


000005 


000612 


II22: 


BIT 


M5.S0AV^R^ ) 


•IF SYSTEM DRIVE #0 AVAILABLE 


6793 


003456 


001413 








BEO 


LI22 


•SET. THEN 


6794 


003460 


032737 


001000 


000542 


IJ22: 


BIT 


*SJDE1 CMD 


•IF COMMAND 


6795 


003466 


001411 








BEQ 


UC22 


•HAS SIDE *1 SELECTED THEN 


6796 


003470 


032761 


000004 


00061 2 


IK22: 


BIT 


4'4.S0AV(R1 ) 


•IF SYSTEM SIDE *i AVAILABLE 


6797 


003476 


001005 








BNE 


UC 22 


-NOT SET THEN 


6798 


003500 


005237 


003556 






INC 


GTCMD 


■SET GET COMMAND FLAG 
*BR TO ENDIF 'E' 


6799 


003504 


000402 








BR 


UC22 


6800 


003506 


005237 


003556 




LI22: 


INC 


GTCMD 


'SET GET COMMAND FLAG 


6801 


003512 


005737 


003556 




UC22: 


TST 


GTCMD 


■DO UNTIL GET NEXT CMD FLAG 


6802 


003516 


001305 








BNE 


BC22 


■EQUALS 0 


6803 


003520 


005737 


000542 




IL22: 


TST 


CMD 


■IF COMMAND 


6804 


003524 


100413 








BMI 


X22 


■N0T=D0NE(-1), THEN 


6805 


003526 


01 3702 


000542 






MOV 


CfH) R2 


■GET COMMAND TO TEST 


6806 


003532 


042702 


177761 






BIC 


0]77761 R2 


'CLEAR ALL BUT ACTUAL COMMAND 


6807 


003536 


022702 


000006 




IM22: 


CMP 


/VRDSEC R2 


IF COMMAND 


6808 


003542 


001002 








BNE 


EM22 


•SET TO READ SECTOR, THEN 


6809 


003544 


004737 


004016 






CALL 


TRKSEC 


ICALL TRACK % SECTOR UPDATE (MOD 2.2.2) 


6810 


003550 


004737 


004402 




EM22: 


CALL 


DRVR 


;CALL IWIT DRIVER (MOD 2.2.3) 


6811 
6812 
6813 


003554 


000207 






X22: 


RETURN 




•RETURN TO CALLER 


003556 


000000 






6TCMD: 


0 




•GET COWAND FLAG 


6814 


003560 


000000 






SODVDN: 


0 




■SYSTEMfO DRIVE DONE FLAG 


6815 


003562 


000000 






S1DVDN; 


0 




•SYST£M#1 DRIVE DONE FLAG 


6816 
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COrWAND 



SEQ 0032 



6818 

6819 

6820 

6821 

6822 

6823 

6824 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 

6833 

683A 

6835 

6836 

6837 

6838 

6839 

6840 

68A1 

68A2 

6843 

6844 

6845 

6846 

6847 

6848 

6849 

6850 

6851 

6852 



,S8TTL MODULE 2.2.1 - GET COMMAND 

8EGINR0UTINE (MOD 2.2.1 - GET COMMAND) 

INITIALIZE SYSTEM COMMAND TABLE POINTERS. IF INIT SET 
GET SYSTEM UNDER CONTROL <SUC> COMMAND TABLE POINTER. 
GET COMMAND AT POINTER 

IF COMMAND = DONE CA3 
THEN 

RESET <SUC> COMMAND POINTER 
ELSE 

IF COMMAND = READ SECTOR C8D 
THEN 

GET <SUC> DRIVE DONE FLAG 

IF DRIVE DONE FLAG SET TCJ 
THEN ~ 

CLEAR <SUC> DRIVE DONE FLAG 

IF <SUC> NEW COMMAND FLAG NOT SET CEJ 
THEN 

INCREMENT <SUC> COMMAND TABLE POINTER 
GET COMMAND AT POINTER 
IF COMMAND = DONE CD J 

THEN 

RESET <SUC> COMMAND TABLE POINTER 

ENDIF 

ENDIF 

CLEAR <SUC> NEW COMMAND FLAG 

FNDIF 
ELSE 

INCREMENT <SUC> COMMAND TABLE POINTER 
SET <SUC> NEW COMMAND FLAG 

ENDIF 
ENDIF 

CLEAR <SUC> DRIVE DONE FLAG 
SET SELECTED DENSITY ONTO COTflAND 
ENDROUTINE 
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0n^S64 


on "i7^7 

\AJJf Ji 


vVV J 1 H 




1 0 1 




IF INITIALIZE 
















DC V 


1 J 








00357? 


OOS037 


00376? 






ri R 


SVOTPT 


ri FAR <;V^ #n TAfil F PTR 






\J\JjJf D 


V/w Jv J ' 










TPT 


n FAR ^V^ #1 TAni F PTR 




68S9 










1 t • 






TAI 1 ^FT <^Hr> DFFSFT 






003606 


01610P 


00376? 






MOV 


SYOTPTCRI) r? 


GET <SUC> CMD TABLE PTR 






00361? 


016237 


00377? 


00054? 




MOV 

1 Iw » 


rMDTRI (R?) fMD 


GFT rOMMAMD AT PDINTFR 






0036?0 


013703 


00054? 






MOV 


CMD R3 


^AVF rOMMAAlO TFMP #^ 




6863 


0036?4 


005703 






FA??1 • 




R3 


IF rOMMAMD 

FOIIAI ^ 'DONF" THFN 




6864 

^^^^^ 


0036?6 


00?003 








out 


1 A??1 






003630 


00S061 

W JW < 


003762 






CLR 


SVOTPT (RI ) 


RF^FT <^Ur> TMD TARI F PTR 




6>866 


003634 


000444 








op 


FA??1 


DO to FX IT MOD 




6867 


003636 


042703 


177761 




1 A??1 • 




#177761 R3 


CLFAR At 1 BUT TOMMAMD 




6868 


003642 


022703 


000006 




IB221 • 


CMP 


#6 R3 


'IF COMMAND 

FOUAl S 'f}FAD ^PrTQP" TMFN 




6869 


003646 


001032 










L8221 




6870 


003650 


016104 


003560 






MOV 


SODVDN(RI) R4 


GET <SUC> DRIVE DONE FLAG 




6871 


003654 


005704 






JC221 : 


TST 


R4 


IF <SUC> DRIVE DONE FlAG 




6872 


003656 


001433 








BEQ 


EA221 ! 


SET. THEN 




6873 


003660 


005061 


003560 






CLR 


S0DVDNCR1) 


-CLEAR <SUC> DRIVE DONE FLAG 




6874 


003664 


005761 


003766 




IE221 : 


TST 


SOCMDF (RI) 


■IF <SUC> NEW COMMAND FLAG 




6875 


003670 


001016 








BNE 


EE221 


■NOT SET THEN 




6876 


003672 


062761 


000002 

WW WW t 


003762 




ADD 


#2 SyOTPT(RI) 


'INCREMENT <SUC> CMD TABLE PTR 




6877 


003700 


016102 


003762 






MOV 


SVOTPT (RI) R2 


'GET <SUC> CMD TABLE PTR 




6878 


003704 


016237 


003772 
000542 


000542 




MOV 


CMDTSL(R2) CMD 


■GET COMMAND AT POINTER 




6879 


003712 


013703 






liov 


CMD R3 


■SAVE COMMAND IN TEMP#3 




6880 


003716 


005703 






ID221 : 


TST 


R3 


;IF COMFMND 

■EQUALS 'DONE" THEN 




6881 


003720 


002012 








BGE 


EA221 




OOOc 


f»nx7?? 










LLK 


CVOTDT f D1 ) 


»DCCCT rMTt TAfil C DTItUTCD 

rHcdC 1 I^dLc rUINTcK 




6883 


0037?6 


005061 


003766 




EE221 : 


ri R 


'SOCMDF f R1 ) 






6884 


003732 


000405 








BR 


EA221 


■BR TO E)(IT MOD 




6885 


003734 


062761 


000002 


003762 


L8221 : 


ADD 


#2 SVOTPT (RI) 


'INCREMENT <SUC> CMD TABLE PTR 




6886 


003742 


005261 


003766 






INC 


SOCMDF (RI ) 


■SET <SUC> NEW CtyPIAND FLAG 




6887 


003746 


053737 


000506 


000542 


EA221 : 


BIS 


DENS. CMD 


•SET SELECTED DENSITY 




6888 


003754 


005061 


003560 






CLR 


SODVDNCRI } 

w wi/ V \ n ■ / 1 


* ri FAR <SUr> DftlVF DflNF FIA^ 




6889 


003760 


000207 






X221 : 


RETURN 




■RETURN 

■ \^wP 




6890 




















6891 




























SYOTPT : 










6892 


003762 


000000 






0 




-SVSTEMfO CQMPMM) TAfiLF POINTER 




6893 


003764 


000000 






SYl TPT: 


0 




■SYSTEMfl COMMAND TABLE POINTER 




6894 


003766 


000000 






SOCMDF ; 


0 

w 




'SVSiK) NEW COfVUND FLAG 




6895 
6896 


003770 


000000 






S1CMDF; 


0 




■SVS#1 NEW CQIVMND FLAG 

W 1 wW I aPb W Vwl P P V PW 1 W 






















6897 
















■ DRV4r/SI DE#/CQHMAND 


/PTR 


6898 






































6899 


003772 


000113 






CMDT8L : 


.WORD 


0113 ', 


' 0 / 0 / READ MAINT STATUS 


10 


6900 


003774 


000133 








iwORD 


0133 


■ 1 / 0 / READ MAINT STATUS 


12 


6901 


003776 


00011 1 








unpn 


01 1 1 




/u 


6«X)2 


004000 


000131 








.UIORD 


0131 


1 / 0 / SET DENSITY 


/6 


6. )3 


004002 


000107 








.WORD 


0107 


• 0 / 0 / READ SECTOR 


/10 


6904 


004004 


000127 








.WORD 


0127 


■ 1 / 0 / READ SECTOR 


/12 


6905 


004006 


001107 








.WORD 


1107 


• 0 / 1 / READ SECTOR 


/14 


6906 


004010 


001127 








.WORD 


1127 


' 1 / 1 / READ SECTOR 


/16 


6907 


004012 


177777 








.WORD 


-1 


DONE TERMINATOR 


/20 


6908 


004014 


177777 








.WORD 


-1 


DONE TERMINATOR 


122 


6909 
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SEQ 0034 



6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6930 

6931 

6932 

6933 

6954 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

6953 

6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 



.S8TTL MODULE 2.2.2 - TRACK I SECTOR UPDATE 

8EGINR0UTINE (MOD 2.2.2 TRACK & SECTOR UPDATE) 
INITIALIZE MODULE. IF INITIALIZE PROGRAM SET 

IF SOFT SWITCH REG->CRC ALL TRACKS SET [A3 
THEN" 

IF <SUC> DRIVE SECTOR DONE CBD 
THEN 

IF <SUC> DRIVE TRACK DONE IQI 
THEN 

CLEAR <SUC> DRIVE TRACK DONE 
SET <SUC> DRIVE TRACK = 76 
SET <SUC> DRIVE DONE 
ELSE 

DECREMENT <SUC> DRIVE TRACK 
SET TRACK=<SUC> DRIVE TRACK 

IF <SUC> DRIVE TRACK=0 CD3 
THEN 

SET <SUC> DRIVE TRACK DONE 

END IF 

SET SECTOR = <SUC> DRIVE SECTOR 

ENDIF 

CLEAR <SUC> DRIVE SECTOR DONE 
ELSE 

SET <SUC> DRIVE SECTOR=INTERLEAVE ♦ <SUC> DRIVE SECTOR 
SET SECTOR=<SUC> DRIVE SECTOR 

IF <SUC> DRIVE SECT0R=26 CEJ 
THEN 

SET <SUC> DRIVE SECTOR DONE FLAG 
SET <SUC> DRIVE SECT0R=1 
ELSE 

IF SECTOR >26 CF] 
THEN 

SET <SUC> DRIVE SECTOR t SECTOR 2 

ENDIF 

ENOlf 

SET TRACK = <SUC> DRIVE TRACK 

ENOIF 

ELSE 

IF <SUC> DRIVE TRACK DONE FLAG SET CGJ 
THEN 

SET TRACK=0 

SET <SUC> DRIVE TRACK=0 
CLEAR <SUC> DRIVE TRACK DONE 
SET <SUC> DRIVE DONE 
ELSE 

SET TRACK =76 

SET <SUC> DRIVE TRACK DONE FLAG 

ENDIF 

SET <SUC> DRIVE SECT0R=1 
SET SECTOR= <SUC> DRIVE SECTOR 
ENDIF 
ENDROUTINE 
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6965 

6966 004016 005737 004360 TRiCSEC: TST INITTS ;]F INITJALIZE PROGRAM 



C2RXEA0 RXO? FMTR PROG HACYll 
CZRXEA.PIl 20-SEP-78 10:48 

6968 0(K022 0OK26 

6969 OO402A 005037 004360 

6970 004030 005037 004362 

6971 004034 005037 004364 

6972 004040 005037 004366 

6973 004044 005037 004370 

6974 004050 012737 000114 

6975 004056 012737 000114 

6976 004064 012737 000001 

6977 004072 012737 000001 

6978 004100 004737 010126 

6979 004104 032777 000200 

6980 004112 001474 

6981 004114 005761 004366 

6982 004120 001433 

6983 004122 005761 004362 
6964 004126 001410 

6985 004130 005061 004362 

6986 004134 012761 000114 

6987 004142 005261 003560 

6988 004146 000415 

6989 004150 016137 004376 

6990 004156 005361 004376 

6991 004162 005761 004376 

6992 004166 001002 

6993 004170 005261 004362 

6994 004174 012761 000001 

6995 004202 005061 004366 

6996 004206 000463 

6997 004210 062761 000002 

6998 004216 016137 004372 

6999 004224 026127 004372 

7000 004232 001006 

7001 004234 005261 004366 

7002 004240 012761 000001 

7003 004246 000412 

7004 004250 023727 000500 

7005 004256 103406 

7006 004260 012737 000002 

7007 004266 012761 000002 

7008 004274 016137 004376 

7009 004302 000425 

7010 004304 005761 004362 

7011 004310 001407 

7012 004312 005061 004362 

7013 004316 005037 000502 

7014 004322 005261 003560 

7015 004326 000405 

7016 004330 012737 000114 

7017 004336 005261 004362 

7018 004342 012761 000001 

7019 004350 016137 004372 

7020 004356 000207 
7021 



50(1046) 20-SEP-78 10 
MODULE 2.2.2 - 







BEO 






CLR 






CLR 






CLR 






CLR 






CLR 


004376 




MOV 


004400 




MOV 


004372 




MOV 


004374 




MOV 




1$: 


CALL 


174372 


IA222: 


BIT 






BEO 




IB222: 


TST 






BEO 




IC222: 


TST 






BEO 






CLR 


004376 




MOV 






INC 






BR 


000502 


LC 222: 


MOV 






DEC 




ID222: 


TST 






6NE 






INC 


004372 


ED222: 


MOV 




EC222: 


CLR 






BR 


004372 


L8222: 


ADD 


000500 




MOV 


000032 


IE222: 


CMP 






BNE 






INC 


004372 




MOV 






BR 


000032 


U222: 


CMP 






BLO 


000500 




MOV 


004372 




MOV 


000502 


EE222: 


MOV 






BR 




1G222: 


TST 






BEO 






CLR 






CLR 






INC 






BR 


000502 


LG222: 


MOV 






INC 


004372 


EG222: 


MOV 


000500 




MOV 




X222: 


RETURN 
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If 


SET, THEN 


INITTS 


CLEAR INITIALIZE FLAG 


DVTKDN 


CLEAR SrS#0 DRIVE TRK DONE 


DVTKDN*2 


CLEAR SYSM^ DRIVE TRK DONE 


DVSCDN 


CLEAR SyS#0 DRIVE SEC DONE 


DVSCDN+2 


CLEAR Sy$#l DRIVE SEC DONE 


*76..DVTRK 


SET SiSMO DRIVE TRK = 76 


*76.,DVTRK*2 


SET SY&ri DRIVE TRK = 76 


*1.DVSEC 


SET SYSTEWO DRVSEC=1 


*1,DVSEC*2 


SET SYSTEMfl DRVSEC=1 


SSUCOF 


CALL SET <SUC> OFFSET 


«CRCALL,aSWR 


IF SWR -> CRC ALL TRACKS 


IG222 


SET, THEN 


DVSCDN(RI) 


IF <SUC> DRIVE SECTOR DONE FLAG 


LB222 


SET, THEN 


DVTKDN (R1) 


•IF <SUC> DRIVE TRACK DONE FLAG 


LC222 


SET. THEN 


DVTKDN (R1) 


CLEAR <SUC> DRIVE TRACK DONE FLAG 


*76..DVTRK(R1) . 


■SET <SUC> DRIVE TRACK =76 


S0DVDN(R1) 


•SET <SUC> DRIVE DONE FLAG 
•8R TO ENDIF 'C 


EC222 


DVTRK(RI), TRACK 


;SET TRACK = <SUC> DRIVE TRACK 


DVTRK(RI) 


■DECREMENT <SUC> DRIVE TRACK 


DVTRK(RI) 


;1F <SUC> DRIVE TRACK 


ED222 


•EQUALS ZERO. THEN 


DVTKDN (R1) 


■SET <SUC> DRIVE TRACK DONE FLAG 


*1.DVSEC(R1) 


;SET <SUC> DRIVE SECT0R=1 


DVSCDN (Rl) 


•CLEAR <SUC> DRIVE SECTOR DONE FLAG 


X222 


;BR TO MOD EXIT 


/riNTLV.DVSEC<Rl) 


rSET <SUC> DRV SEC=INTERLEAVE ♦ OLD DRV 5EC 


DVSECCRD.STTR 


;SeT SECrOR=<SUC> DRIVE SECTOR 


DVSEC(R1),#<fO. 


;IF <SUC> DRVE SECTOR 


If222 


; EQUALS 26, THEN 


DVSCDN(Rl) 


;SET <SUC> DRIVE SECTOR DONE FLAG 


#1-DVSEC(R1) 


rSET <SUC> DRIVE SECT0R=1 
;aR TO END 'E* 


EE222 


SECTR,#26. 


;IF SECTOR 


EE222 


;>26, THEN 


M2.SECJR 


rSET SECT0R=2 


/r2.DVSEC(R1) 


;SET <SUC> DRIVE SECTOR = 2 


DVTRK(RI), TRACK 


;SET TRACK = <SUC> DRIVE TRACK 


X222 


;BR TO MOD EXIT 


DVTKDN <R1) 


;IF <SUC> DRIVE TRACK DONE FLAG 


LG222 


;SET, THEN 


DVTKDN (R1) 


r CLEAR <SUC> DRIVE TRACK DONE FLAG 


TRACK 


;SET TRACK=0 


SODVDN(RI) 


;SET <SUC> DRIVE DONE FLAG 
;BR TO ENDIF 'G' 


E6222 


#76.. TRACK 


;SET TRACK=76 


DVTKDNCRI) 


;SET <SUC> DRIVE TRACK DONE FLAG 


*1,DVSEC(R1) 


;SET <SUC> DRIVE SECT0R=1 


DVSEC(R1),SECTR 


;SET SECTOR=<SUC> DRIVE SECTOR 


;RETURN - MOO EXIT 
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7023 

7024 

7025 

7026 

7027 

7028 

7029 

7030 

7031 

7032 

7033 

7034 

7035 

7036 

7037 

7038 

7039 
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004360 


000002 
000000 

w www 




INTLV 


= 2 








INITTS: 


0 




•INITIALIZE TRACK t SECTOR FLAG 






004362 


000000 


• 

DVTKDN: 


.WORD 


0 


■DRIVE TRACK DONE (DVTKDN) 


SYS 


00 


004364 


000000 

VwVw W 




WORD 


0 


■DRIVE TRACK DQNF (DVTKDN) 


•J > J 




004366 


000000 


DVSCDN: 


!W0RD 


0 


DRIVE SECTOR DONE (DVSCDN) 


SYS 


#0 


004370 


000000 




.WORD 


0 


•DRIVE SECTOR DONE (DVSCDN) 


SYS 


#1 


004372 


000001 


DVSEC: 


.WORD 


1 


•DRIVE SECTOR (DVSEC) 


SYS 




004374 


000001 




.WORD 


1 


•DRIVE SECTOR (DVSEC) 


SYS 


0^ 


004376 


000114 


DVTRK : 


.WORD 


76. 


•DRIVE TRACK (DVTRK) 


SYS 


00 


004400 


000114 


* 


.WORD 


76. 


; DRIVE TRACK (DVTRK) 


SYS 


#1 



SEO 0037 



9 
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SEO 0058 



7041 

7042 

7043 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7058 

7059 

7060 

7061 

7062 

7063 

7064 

7065 

7066 

7067 

7068 

7069 

7070 

7071 

7072 

7073 

7074 

7075 

7076 

7077 

7078 

7079 

7080 

7081 

7082 



.S8TTL MODULE 2.2.3 - DRIVE DRIVER 

BEGINROUTINE (MOD 2.2.3 - DRIVE DRIVER) 
CALL SET <SUC> ADDRESS AND OFFSET 
SAVE COMMAND IN <SUC> COMMAND 
IF COMMAND=SET DENSITY 
THEN 

SET <SUC> WATCHDOG MULTIPLIER LIMIT=400 
ELSE 

SET <SUC> WATCHDOG MULTIPLIER LIMIT=20 
END IF 

SETUP SECTOR FOR PRINT 
SETUP TRACK FOR PRINT 
SETUP SECTOR ADR FOR OUTPUT 
SETUP TRACK ADR FOR OUTPUT 
SETUP COMMAND FOR OUTPUT 
CALL SET PRIORITY HIGH 
CALL OUTPUT COMMAND 
CALL SET PRIORITY LOW 
ENDROUTJNE 



004402 


004737 


010076 




DRVR: 


CALL 


004406 


013761 


000542 


000622 




MOV 


004414 


013702 


000542 






MOV 


004420 


042702 


177761 






BIC 


004424 


022702 


000010 




IA223: 


CMP 


004430 


001004 








BNE 


004432 


012761 


000400 


000556 




MOV 


004440 


000403 








BR 


004442 


012761 


000020 


000556 


LA223: 


MOV 


004450 


013761 


000500 


011310 


EA223: 


MOV 


004456 


013761 


000502 


011304 




MOV 


004464 


013737 


000500 


005114 




MOV 


004472 


013737 


000502 


005112 




MOV 


004500 


013737 


000542 


000540 




MOV 


004506 


004737 


010020 






CALL 


004512 


004737 


004524 






CALL 


004516 


004737 


010034 






CALL 


004522 


000207 






X223: 


RETURN 



SSUCAD 

CMD,S0CMD(R1) 

CMD,R2 

#1 77761 .R2 

#SETD£N.R2 

LA223 

#400,S0WMLT(R1) 
EA225 

#20,S0WHLT(R1) 

SECTR,S0SEC(R1) 

TRACK, S0TRK<R1} 

SECTR.SECADR 

TRACK, TRKADR 

CMD.WDOT 

PRIHI 

OUTCrtD 

PRILO 



CALL SET <SUC> ADDRESS & OFFSET 

SAVE COMMAND IN <SUC> COMMAND 

GET COMMAND 

CLEAR ALL BUT COMMAND 

IF COMMAND 

EQUALS "SET DENSITY" 

SET <SUC> WATCHDOG MULT LIMIT-400 

8R TO END 'A* 

SET <SUC> WATCHDOG MULT LIMIT=20 

SETUP SECTOR FOR PRINT 

SETUP TRACK FOR PRINT 

SETUP SECTOR ADR FOR OUTPUT 

SETUP TRACK ADR FOR OUTPUT 

SETUP COMMAND FOR OUTPUT 

CALL SET PRIORITY HIGH 

CALL OUTPUT COMMAND 

CALL SET PRIORITY LOW 

RETURN 
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END2231 


7131 


005052 


012737 


000200 
005110 


010226 


LE2231 : 


MOV 


#TR8IT.RDYWD 


7132 


005060 


013737 


005102 




MOV 


VALWD,WRDS 


7133 


005066 


013737 


000474 


005104 




MOV 


RXDBAD.ADRS 


7134 


005074 


004737 


005124 






JSR 


PCOUTSWD 


7135 


005100 


000207 






END2231 


: RTS 


PC 


7136 










* 







JMMAND SEO 0039 

DRIVE COMMAND 



READY TEST WD (PASS TO 2.2.3.''.1) 

WORD FOR OUTPUT (PASS TO 2.2.3.1.1) 

ADDRESS OF OUTPUT (PASS TO 2.2.3.1.1) 

OUTPUT FUNCTION WD (FW) DO 2.2.3.1.1) 
THEN. IF FUNCTION IS 

"READ, WRITE, FILL, EMPTY" (FW BIT *3=0) 
AND THEN IF FUNCTION IS 
"tMPTY, FILL" (FW BIT*2=0) 

THEN SET OUTPUT READY TEST WORD (PASS TO 2.2.3.1.1) 
AND SET WORD FOR OUTPUT (PASS TO 2.2.3.1.1) 

AND SET ADDRESS OF OUTPUT (PASS TO 2.2-3.1.1) 

OUTPUT BASE ADDRESS WORD DO 2.2.3.1.1 

IF 'TILL" (FW BIT#1=0) 
THEN 

SET DATA FILL BUFFER ADR (PASS TO 2.2.3.1.1) 

BR TO END IF 'K' 

SET DATA EMPTY BUFFER ADR (PASS TO 2.2.3.1.1) 

SET OUTPUT READY TEST WORD (PASS TO 2.2.3.1.1) 
ADDRESS OF OUTPUT (PASS TO 2-2.3.1.1) 

OUTPUT WORD COUNT WORD DO 2.2.3.1.1 

BRANCH TO END IF 'H' 
IF FUNCTION WORD IS 

•1«ITE D.D" OR 'HEAD E.C" (FW BIT *2=1) 

THEN« IF FUNCTION IS 

•t^RITE D.D", THEN (FW BIT#1=0) 

SET OUTPUT READY TEST WORD 

MOVE TRACK AND SECTOR ADDRESS 

FORMAT TO SECTOR ADDRESS 

ADDRESS OF OUTPUT 

OUTPUT SECTOR ADDRESS 

MOVE TRACK AND SECTOR ADDRESS 

FORMAT TRACK ADDRESS 

SET OUTPUT READY TEST WORD 

ADDRESS OF OUTPUT 

OUTPUT TRACK ADDRESS 

ENOIF H -DONE 

SET READY WD TO TR MODE 

EXT ERR. CODE TABLE ADD 

ADDRESS OF OUTPUT, RXDB 

0/P BASE ADD FOR ERR. CODE 

DONE 

IF FUNCTION IS 

•HEAD STATUS" (FW BIT/lf1=1) 

THEN-SET ERR STATUS FLAG 

DONE 

SET OUTPUT READY TEST WD 
VALIDATION WORD 
ADDRESS OF OUTPUT. RXDB 
OUTPUT VALIDATION WORD 
RETURN TO MOD 2.3 
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SEO 0040 



7138 

7139 

7140 

7141 

7142 

7143 

7144 

7145 

7146 

7147 

7148 

7149 

71 50 

7151 

^152 

7153 

7154 

7155 

7156 

7157 

7158 

7159 

7160 



005102 000000 

005104 000000 

005106 000000 

005110 000111 

005112 000000 

005114 000000 

005116 000000 

005120 000000 

005122 000000 



005124 013737 000472 

005132 013737 010226 

005140 004737 010136 

005144 033777 010226 

005152 001403 

005154 013777 005102 

005162 000207 



URDS: 0 
ADRS: 0 
ERSTAT: 0 
VALUD: 111 
TRKADR ; 
SECADR: 
BAFILL: 
BAEMPT: 
UDCT: 



0 
0 
0 
0 
0 



;f10D 2.2.3.1 



END MODULE 



MODULE 2.2.3.1.1 OUTPUT WORD 

MODULE 2.2.3.1.1 OUTPUT ADDRESS 

MODULE 0.0 ERR STATUS READ FLAG 

VALIDATION UD (SET DENS-ASCII "1") 

TRACK ADDRESS 

SECTOR ADDRESS 

BASE ADDRESS FILL BUFFER 

BASE ADDRESS EMPTY BUFFER 

WORD COUNT 



.S8TTL MODULE 2.2.3.1.1 - OUTPUT SINGLE WORD 



010230 
010226 

1 73320 

177722 



OUTSWD: 



X2231 1 : 



MOV 
MOV 
JSR 
BIT 
BEO 
MOV 
RTS 



;MOD 2.2.3.1.1 



RXCSAD,CSRADR 
RDYWD.RDYWD 
PC. DELAY 
RDYWD.aRXCSAD 
X22311 
WRDS.aADRS 
PC 



END MODULE 



SET CSS REG ADR 
OUTPUT READY WORD 
DELAY FOR READY 
IF READY. 
THEN 

MOV WORD TO ADDRESS 
RETURN 



(PASS TO DELAY) 
DO DELAY 
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7162 

7165 

71 6A 

7165 

7166 

7167 

7168 

7169 

7170 

71 71 

7172 

7173 

7174 

7175 

7176 

7177 

7178 

7179 

7180 

7181 

7182 

7183 

7184 

7185 

7186 

7187 

7188 

7189 

7190 

7191 

7192 

7193 

7194 

7195 

7196 

7197 

7198 

7199 

7200 

7201 

7202 

7203 

7204 

7205 

7206 

7207 

7208 

7209 

7210 

7211 

7212 

7213 

7214 

7215 
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MODULE 2.2.5 - ERROR CHECK 

.S8TTL MODULE 2.2.5 - ERROR CHECK 

8EGINR0UTINE (MOD 2.2.5 - ERROR CHECK) 
CLEAR PRINT HEADER FLAG & ERROR »^LAG 
CALL SET <SUC> ADDRESS & OFFSET 
GET <SUC> COMMAND (FROM LAST 0PERATJ0^i) 
IF <SUC> COMMAND=READ MAINT STATUS 
THEN 

SET COMMAND HEADER=*T*EAD MAINT STATUS" 
SETUP CSR I ESR CHECK BITS t DON'T CARE BITS 
CALL CSR ERROR CHECK & CALL ESR ERROR CHECK 
SET ERROR FLAG. IF ANY ERRORS 
IF ERROR FLAG StT 
THEN ~ 

SET ERROR=<READ MAINT STATUS COMMAND ERROR> 



SEQ 0041 



CAJ 



CALL DRIVES DROP (MOD 2.2.5.1) 

CALL LOOP (MOD 2.2.5.4) 

ELSE 

CALL DRIVES AVAILABLE CHECK 

END IF 

ELSE 

IF <SUC> COMMAND=SET DENSITY 
THEN 

SET COMMAND HEADER="SET DENSITY ERROR" 
CALL SET TEST BITS (MOD 2.2.5 

CAIL CSR ERROR CHECK & CALL ESR ERROR CHECK 
SET ERROR FLAG. IF ANY ERRORS 
IF ERROR FLAG SET 
THEN 

SET ERROR=<SET DENSITY COMMAND ERROR> 
CALL DRIVES DROP (MOD 2.2.5 



(MOD 2.2.5.2) 



3) 



rCJ 



CD3 



1) 



CALL LOOP (MOD 2.2.5.4) 

END IF 
ELSE 

IF <SUC> COMMAND=READ SECTOR CF] 
THEN 

SET COMMAND HEADER="READ SECTOR COMMAND ERROR" 
CALL SET TEST BITS (MOD 2.2.5.3) 

CALL CSR ERROR CHECK 6 CALL ESR ERROR CHECK 
SET ERROR FLAG. IF ANY ERRORS 

IF ERROR FLAG SET CEJ 
THEN ~ 

IF RXDB=CRC ERROR CGJ 
: THEN 

CALL TRACK t SECTOR I DENT 

ENDIF 

SET ERROR=<READ SECTOR COMMAND ERROR> 
CALL DRIVES DROP (MOD 2.2.5.1) 

CALL LOOP (MOD 2.2.5.4) 

ENDIF 

ENDIF 

ENDIF 
ENDIF 
ENDROUTINE 
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MODULE 2.2.5 - ERROR CHECK 



SEQ 00^2 



f C\f 

1 7 






nnr>An9 




• 




unpci r, 

ni/ArLVj . 


n FAR HFARFP Fl AC, 




feed 


UOj 1 IK) 












FDDFI IX 

CAArLU , 


CLE.^R ERROR FLAGS 




f del 


/VICI 7/ 


nnA7 <7 


m Art 7 A 






I.ALL 




CALL SET <SUC> ADDRESS t OFFSET 




7D55 
r CCC 


UU5cUU 


ni/.in9 


0<W>95 






MDU 


^OrMD^RI ) Q9 
ovCrM/ V A 1 / - AC « 

*1 777^1 Bp 

W 1 f r f O 1 # AC . 


GET <SUC> LAST COMMAND 






UU9cU*» 




1 777A1 








CLEAR ALL BUT COMMAND 




75DZ. 
/ cc*» 


f>nc9i n 

UU^c 1 u 




nonm 9 




T A995 • 


TMP 


irRnMM5T R9 


IF COMMAND 

EQUALS 'T^EAD MAINT STATUS", THEN 




f CC' 




lAJ t\f*r 








RNF 


K22S 




1 ecu 




ni 9777 


m 774A 


\J\J\JO\J\J 






irM5(irD5 TM5(UVD 


SETUP COMMAND HEADER 




7557 




ni 9777 


noAOz.n 






nu V 




SET DONE BIT CK-CSR COMPARE 




75?ft 
( CCO 




n«;9777 


no4fwv) 






□ i 0 




SET DOUBLE DENSITY BIT CK-CSR COMPARE 


1 CC7 




ni 9777 

V/ 1 C ' J' 


177S77 


000544 




MOV 


#173537 CSRMSK 


SET CSR DON'T CARE BITS 




r c 






OOOSS9 

v\J\J J JC 






ri R 


E5RCMP 


SET DRV RDV-ESR COMPARE 




r CO 1 




019777 


171AA9 


000550 




nw 


#171662 FSRMSK 


SET-ESR DON'T CARE BITS 




7979 




004777 


010404 










CALL CSR ERROR CHECK 




7977 




010077 


00SS9^% 






MOV 




SET ERROR FLAG, IF ANY ERRORS 




79 7i 




004777 


010fi94 






TAI 1 




CALL ESR ERROR CHECK 




797S 


nn*> 9 74 


0S0077 


00SS9^ 






R[ 5 


RO FRRFI C 


SET ERROR FLAG. IF ANY ERRORS 




79 7A 




OOS777 






IR995- 


T5T 

1 1 


FRRFLG 


•IF ERROR FLAG 




7977 




001410 








RFO 


L8225 


SET, THEN 




797R 




004777 


01 9940 






)5ft 


PC FRR5FT 






f 91 




00O0O4 










#4 


■FATAL ERR # 4 - READ MAINT STATUS 


COMMAND 


79 7Q 




0047^7 


00SS70 






f Al 1 


DRVDRP 


•CALL DRIVES DROP (MOD 2,2.5. 


1) 


79^0 




004777 


00^406 






fAI 1 


1 OOP 


•CALL LOOPING MODULE (MOD 2.2.5. 


4) 


79^1 


00S794 


00047ft 








BR 


EA225 


■BR TO MOD EXIT 


2) 


7949 




004777 


006040 




I B?25 • 




DRVAVL 


;CALL DRIVES AVAIL CHK (MOD 2.2.5. 


7947 


00S77? 


000477 








BR 


EA225 


;aR TO MOD EXIT 




7944 


OOS774 


099709 


000010 




i wcc ^ * 


CMP 


#SFTDEN R2 

IF 225 


. COMCMM) 

•EQUALS '^ET DENSITY", THEN 
.SETUP COWAND HEADER 




794 S 




001070 












794fi 


00S749 


019777 

VIC' J f 


01 771 1 


000600 




MOV 


#MSGCD4 TMSGAD 




7947 


nos7sn 

VA/^JJv 










CAl 1 


STSTBT 


;CALL SET TEST BITS (MOD 2.2.5. 


3) 


794fl 






010404 






TAI 1 




;CALL CSR ERROR CHECK 




7949 




0100^7 


005596 






MOV 


RO FRRFLG 


;SET ERROR FLAG, IF ANY ERRORS 




79S0 




004777 


010694 

V 1 WC ~ 






PAI L 


FSRCHK 


;CALL ESR ERROR CHECK 




79S1 




OS0077 


005596 






BIS 


RO FRRFLG 


.SET ERROR FLAG. IF ANY ERRORS 




77^7 
f c^c 




\AJJ f Jf 


00559fS 




ID995 • 

i l/CC ^ * 


T5T 


FRRFI G 


;IF ERROR FLAG 








VA/ 1 J W 










FA995 


;SET. THEN 




77^L 




004777 


019940 

v 1 CCH w 






15R 

J OA 


PC FRRSFT 






vc / 




ooooos 








UORD 


#5 


.•FATAL ERR * 5 - SET DENSITY COMMAND ERROR 






004777 


005570 






f Al 1 


DRVDRP 


.•CALL DRIVES DROP (MOD 2.2.5. 


1) 


77^fi 

f C J\J 




004777 


006406 






f A' L 


LOOP 


:CALL LOOPING MODULE (MOD 2.2.5. 


4) 


77^7 












RR 

DA 


FA925 

C^C C J 










099709 

vCC f vC 


000006 






TMP 


#RD^Fr R2 


•IF COMMAND 








001 07S 








RNF 


EA225 


.EQUALS 'nEAD SECTOR". THEN 






%/V J*t Jl/ 


019777 

v 1 C f J' 


01 7954 


000600 




MOV 


#MSGCD3 TMSGAD 


:SET COWAND HEADER 


3) 


77 fA 




004777 


WVCwV 






CAl 1 


STSTST 


;CALL SET TEST BITS (MOD 2.2.5. 


^262 


005442 


004737 


010404 






CALL 


CSRCHK 


.•CALL CSR ERROR CHECK 




?263 


005446 


010037 


005526 






MOV 


RO.ERRFLG 


.•SET ERROR FLAG. IF ANY ERRORS 




7264 


005452 


004737 


010624 






CALL 


ESRCHK 


;CALL ESR ERROR CHECK 




7265 


005456 


050037 


005526 






BJS 


RO^ERRFLG 


;SET ERROR FLAG, IF ANY ERRORS 




7266 


005462 


005737 


005526 




IE225: 


TST 


ERRFLG 


.IF ERROR FLAG 




7267 


005466 


001415 








BEO 


EA225 


.-SET, THEN 




7268 


005470 


012777 


000001 


\7277b 


IG225: 


BIT 


#CRCERR,SRXDBAD 


.•IF CRC ERROR 




7269 


005476 


001402 








BEQ 


EG225 


;SET. THEN 




7270 


005500 


004737 


011232 






CALL 


PRTKSC 


.'CALL PRINT TRACK/ SEC TOR 
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7277 005526 000000 
7278 



E 4 
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SET DENSITY COMMAND ERROR 



SEO 0043 



7271 


005504 






EG225: 












(1) 


005504 


004757 


012240 




JSR 


PC.ERR3ET 








(2) 


005510 


000006 






.WORD 


«6 


.•FATAL ERR # 6 - READ 


SECTOR 


COMMAND ERR( 


7272 


005512 


004737 


005530 




CALL 


DRVDRP 


.•CALL DRIVES DROP 


(MOD 


2.2.5.1) 


7271 


005516 


004737 


006406 




CALL 


LOOP 


.•CALL LOOPING MODULE 


(MOD 


2.2.5.4) 


727 1> 


005522 


000240 




EA225: 


HOP 










7275 


005524 


000207 




X225: 


RETURN 




•RETURN 






7276 








• 













ERRFLG: 0 



; ERROR FLAG 



1 



F k 
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SEQ 0044 



7280 

7281 

7282 

7283 

7284 

7285 

7286 

7287 

7288 

7289 

7290 

7291 

7292 

7293 

7294 

7295 

7296 

7297 

7298 

7299 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 

7308 

7309 

7310 

7311 

7312 

7313 

7314 

7315 

7316 

7317 

7318 

7319 

7320 

7321 

7322 

7323 

7324 

7325 

7326 

7327 

7328 

7329 

7330 

7331 



.S8TTL MODULE 2.2.5.1 - DRIVE DROP 

8EGINR0UTJNE (MOD 2.2.5.1 - DRJVE DROP) 
CLEAR DROP DRIVE CONTROL WORD 
CLEAR PRINT SIDE FLAG 
CALL SET <SOC> OFFSET 

IF <SUC> COMMAND=DRIVE #1 SELECTED [AJ 
THEN 

IF <SUC> CO«MAND=SIDE #1 SELECTED C8] 
THEN 

IF <SUC> SYS AVAIL=SIDE *1 [C3 
THEN 

SETUP PRINT SIDE=#1. DRIVE=#1 
SET DROP DRIVE=SIDE 1/DRIVE 1 
SET PRINT SIDE FLAG 

ENDIF 
ELSE 

SET DROP DRIVE=SIDE 0/DRIVE 1 

IF <suc> 5ys avail=sjde #1 :d] 

THEN 

SETUP PRINT SIDE=#0. DRIVE=*1 
SET PRINT SIDE FLAG 
ELSE 

SETUP PRINT DRIVE=*1 

ENDIF 

ENDIF 
ELSE 

IF <SUC> COMMAND=SIDE #1 SELECTED CEJ 
THEN 

IF <SUC> SVS.AVAIL=SIDE *1 [FJ 
THEN 

SETUP PRINT SIDE=iri, DRIVE=*0 
SET DROP_ORIVE=SIDE 1 /DRIVE 0 

ENDIF 
ELSE 

SET DR0P.DRIVE=S1DE 0/ DRIVE 0 
IF <SUC> SYS.AVAIL=SIDE #1 CCD 
THEN 

SETUP PRINT SIDE=iW). DRIVE=#0 
SET PRINT.SIDE.FLAG 

ELSE 

SETUP PRINT DRIVE =*0 

ENDIF 

ENDIF 

ENDIF 

IF DROP DRIVE NOT=0 CHD 
THEN 

CALL PRINT SYSTEM IDENTIFICATION 
CALL PRINT DRIVE IDENTIFICATION 
DROP DRIVES SET IN DROP DRIVE FROM <SUC> AVAR 
ENDIF 
ENDROUTINE 



CZRXEAO RX02 ^MTR PROG 


MACVl 1 


30(1046) 


20-SEP 


-78 10 


G 4 

48 PAGE 68-9 




CZRXEA.PII 20-SEP-78 


10:48 




MODULE 


2.2.5.1 


- DRIVE DROP 


SEQ 0045 


7335 




\J\JJ\JOf 


006036 




• 

DRVORP: 


CLR 


DROPDV 


CLEAR DROP DRJVES CONTROL WORD 


733^ 






011230 






CLR 


PTSIDF 


CLEAR PRINT SIDE FLAG 


7337 






010126 






CALL 


SSUCOF ] 


CALL SET <SUC> OFFSET 


7338 






000020 


000622 


IA2251 : 


BIT 


#DRV1,S0CMD(R1) , 


IF <suc> connAND=DRivE ^^^ 


7339 












BEO 


IE2251 


SELECTED. THEN 




W 




001000 


000622 


IB2251 : 


BIT 


*SIDE1,S0CnD(Rl). 


IF <SUC> C0nnAND=SIDE 


7341 


00556? 


001420 








BEQ 


LB2251 


"SELECTED. THEN 


7342 


005 S64 




000010 


000612 


IC2251 : 


BIT 


«10,S0AV(R1) 


IF <SUC> SYS AVAIL=SIDE #1 


7343 


005572 


001 50? 








BEO 


IH2251 


SET. THEN 


7344 


005574 


01?737 


000001 


011226 




nov 


#1.SIDE 


SETUP PRINT SIDE=#1 


7345 


005602 


01?737 

VIC* -J* 


000001 


01 1 224 




nov 


#1 -DRIVE 


SETUP PRINT DRIVE=#1 


7346 


005610 


012737 

Wit' ' 


000010 


006036 




nov 


«10, DROPDV 


•SET DROP DRIVE=SIDE 1/DRlVE 1 


75^7 


005616 


005237 


011230 






INC 


PTSIDF 


SET PRINT SIDE FLAG 
■BR TO IF 'H' 


7348 


005622 


00046t6 








BR 


IH2251 


7349 


005624 


012737 


000002 


006036 


L82251 : 


MOV 


*2, DROPDV 


SET DROP DRIVE=SIDE 0/DRIVE 1 


7350 


005632 


032761 


000010 


000612 


ID2251: 


BIT 


*10,S0AV(R1) 


IF <SUC> SYS AVAIL^SIDE *1 


7351 


005640 


001410 








BEQ 


LD2251 


•SET. THEN 


7352 


005642 


005037 


011226 






CLR 


SIDE 


; SETUP PRINT SIDE=#0 


7353 


005646 


012737 


000001 


011224 




MOV 


«1 .DRIVE 


; SETUP PRINT DRIVE=#1 


7354 


005654 


005237 


011230 






INC 




;SET PRINT SIDE FLAG 
;8R TO IF 'H* 


7355 


005660 


000447 








BR 


IH2251 


7356 


005662 


012737 


000001 


011224 


LD2251 : 


MOV 


/yi .DRIVE 


-SETUP PRINT DRIVE=#1 
•BR TO IF 'H* 


7357 


005670 


000443 








BR 


IH2251 


7358 


005672 


032761 


001000 


000622 


IE2251 : 


BIT 


#SIDE1 ,S0CM0(R1) 


:IF <SUC> COnnAND=SIDE ^1 


7359 


005700 

» ^^^^ 


001417 








BEO 


LE2251 


^SELECTED. THEN 


7360 
7361 


005702 


032761 


000001 


000612 


If2251: 


BIT 


/ri,S0AV(R1) 


;IF <SUC> AVAIL=SIDE #1/DRIVE #0 


005710 


001433 








BEO 


IH2251 


•SET, THEN 


7362 


005712 


01 2737 


000001 


011226 




MOV 


*1,SIDE 


•SETUP PRINT SIDE=#1 


7363 


005720 


005037 


011224 






CLR 


DRIVE 


•SETUP PRINT DRIVE =4rO 


7364 


005724 


012737 


000004 


006036 




nov 


#4, DROPDV 


SET DROP DRIVE=SIDE 1 /DRIVE 0 


7365 


005732 


005237 


011230 






INC 


PTSIDF 


;SET PRINT SIDE FLAG 
;8R TO IF 'H' 


7366 


005736 


000420 








BR 


IH2251 


7367 


005740 


012737 


000001 


006036 


LE2251: 


nov 


#1, DROPDV 


:SET DROP DRIVE=SIDE 0/DRIVE 0 


7368 


005746 


032761 


000004 


000612 


IG2251 : 


BIT 


#4,S0AV(Rl) 


IF <SUC> SYS AVAIL=SIDE #1/DRIVE »0 


7369 


005754 


001407 








BEO 


LG2251 


•SET. THEN 


7370 


005756 


005037 


011226 






CLR 


SIDE 


SETUP PRINT SIDE=#0 

«f W • *^ • F^^F^F a' W F^ W 


7371 


005762 


005037 


011224 






CLR 


DRIVE 


•SETUP PRINT DRIVE =^ 


7372 


005766 


005237 


011230 






INC 


PTSIDF 


•SET PRINT SIDE FLAG 
•BR TO IF 'H* 


7373 


005772 


000402 








BR 


IH2251 


7374 


005774 


005037 


011224 




LG2251 : 


CLR 


DRIVE 


SETUP PRINT DRIVE =#0 


7375 


006000 


005737 


006036 




IH2251 : 


TST 


DROPDV 


■IF DROP DRIVE CONTROL WORD 


7376 


006004 


001413 








BEQ 


X2251 


•SET. THEN 


7377 


006006 


004737 


011132 






CALL 


PRTSYS 


CALL PRINT SYSTEM IDENT 


7378 


006012 


004737 


011154 






CALL 


PRTDRV 


CALL PRINT DRIVE IDENT 


7379 


006016 


043761 


006036 


000612 




BIG 


DROPDV. SOAV(RI) . 


■DROP DRIVES SET IN <SUC> AVAIL 
SET nSG~> DROPPED 


73S0 


006024 


012704 


rtl C i 

Ul jlt 1 






MOV 




(1) 


006030 


004737 


013232 






CALL 


TTOUT 


PRINT nSG 


7381 


006034 


000207 






X2251 : 


RETURN 




RETURN 


7382 
































7383 


006036 


000000 






DROPDV; 


0 


;DROP DRIVE CONTROL WORD 


7384 
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7386 
7587 
7588 
7589 
7590 
7591 
7392 
7595 
7594 
7595 
7596 
7397 

7398 
7599 
7400 
7401 
7402 
7405 
7404 
7405 
7406 
7407 
7408 
7409 
7410 
7411 
7412 
7413 
7414 
7415 
7416 
7417 
7418 
7419 
7420 
7421 
7422 
7423 
7424 
7425 
7426 
7427 
7428 
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MODULE 2.2.5.2 - DRIVES AVAILABLE CHECK 

.S8TTL MODULE 2.2.5.2 - DRIVES AVAILABLE CHECK 

8EGINR0UTINE (MOD 2-2.5.2 - DRIVES AVAILABLE CHECK) 
CLEAR DROP AVAILABLE DRIVES CONTROL 

IF <SUC> C0HMAND=DRIVE #1 SELECTED LA2 
THEN 

IF RXES=DRIVE NOT RDY C8J 
THEN 

IF <SUC> AVAIL=DRIVE #1 SET fCJ 
THEN 

SET DRIVE=1 

SET DROP.AVAIL DRIVE=#1 

ENDIF 

ENDIF 

IF RXES=SIDE NOT RDY CDJ 
: THEN 

DROP <SUC> AVAIL-SIDE *1/DRIVE #1 

ENDIF 

ELSE 

IF RXES=DRIVE NOT RDY CE] 
THEN 

IF <SUC> AVAIL=DRIVE #0 SET Cf3 
THEN 
SET DRIVE=0 

SET DROP AVAIL DRIVE=4r0 

ENDIF 

ENDIF 

IF RXES=SIDE NOT RDY C6J 
THEN 

DROP <SUC> AVAIL -SIDE #1 /DRIVE #1 

ENDIF 

ENDIF 

IF DROP AVAIL DRIVE NOT=0 ZHl 
THEN 

CALL PRINT SYSTEM IDENT 

SETUP PRIHT 'DRIVE NOT READY-IS DISK IN DRIVE 1" 
CALL PRINT SYSTEM lOENT 
CLEAR SIDE PRINT FLAG 
CALL PRINT DRIVE IDENT 

DROP THE DRIVE SET IN DROP AVAIL DRIVE IN <SUC> AVAIL 
SETUP I PRINT "DROPPED" " 

ENDIF 
ENDROUTJNE 



SEO 0046 
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MODULE 2.2.5.2 - DRIVES AVAILABLE CHECK 



SEQ 004 7 



7450 

7431 

7432 

7433 

7434 

7435 

7436 

7437 

7458 

7439 

7440 

7441 

7442 

7443 

7<,44 

7445 

7446 

7447 

7448 

7449 

7450 

7451 

7452 

74 53 

7454 

7455 

74 56 

7457 

7458 

(1) 
7459 
7460 
7461 
7462 
7463 

(1) 
7464 
7465 
7466 
7467 
7468 
7469 
7470 
7471 
74 72 
74 73 
7474 
7475 
7476 
7477 
7478 
7479 
7480 



006040 
006044 
006050 
006056 
006060 
006066 
006070 
006076 
006100 
006106 
006114 
006122 
006124 
006132 
006134 
006142 
006144 
006152 
006154 
006160 
006166 
006T74 
006176 
006204 
006210 
006212 
006216 
006222 
006226 
006232 
006236 
006242 
006250 
006254 
006260 
006262 



005037 

004737 

032761 

001426 

032777 

001012 

032761 

001406 

012737 

012737 

032777 

001030 

042761 

000424 

032777 

001011 

032761 

001405 

005037 

012737 

032777 

001003 

042761 

005737 

001423 

004737 

012704 

004737 

004737 

005037 

004737 

043761 

012704 

004737 

000240 

000207 



006264 000000 



006264 
010076 
000020 

000200 

000002 

000001 
000002 
000002 

000010 

000200 

000001 

011224 
000001 
000002 

000004 
006264 

011132 
016613 
013232 
011132 
011230 
011154 
006264 
015121 
013232 



000622 

1 72406 

000612 

011224 
006264 
1 72352 

000612 

1 72332 

000612 



006264 
1 72300 

000612 



DRVAVL : 
IA2252: 
182252: 
IC2252: 

ID2252: 

IE2252: 
IF 2252: 

IG2252: 
IH2252: 



000612 



EH2252: 
X2252: 



CLR 

CALL 

BIT 

BEO 

BIT 

BNE 

BIT 

BEQ 

MOV 

MOV 

BIT 

BNE 

SIC 

BR 

BIT 

BNE 

BIT 

BEO 

CLR 

MOV 

BIT 

BNE 

BIC 

TST 

BEQ 

CALL 

MOV 

CALL 

CALL 

CLR 

CALL 

BIC 

MOV 

CALL 

NOP 

RETURN 



DROPAV 
SSUCAD 

#DRV1-S0CMD(R1) 
IE2252 

#DRVRDY.aRXDBAD 

ID2252 

#2.S0AV(R1> 

ID2252 

*1. DRIVE 

#2. DROPAV 

#SIDRDY,aRXD6AD 

IH2252 

#10.S0AV(R1) 
IH2252 

fDRVRDY.aRXDBAD 

1G2252 

#1.S0AV(R1) 

16^252 

DRIVE 

#1 .DROPAV 

#SJDRDY,aRXDBAD 

IH2252 

#4,S0AV(R1) 

DROPAV 

EH2252 

PRTSYS 

#MS655,R4 

TTOUT 

PRTSYS 

PTSIDf 

PRTDRV 

DROPAV. SOAV(RI) 

*I1SG33.R4 

TTOUT 



.•CLEAR DROP AVAIL DRIVE 

.•CALL SET <SUC> ADDRESS t OFFSET 

;IF <SUC> COMMAND 

HAS DRIVE #1 SELECTED, THEN 

IF RXES 

DRIVE RDY NOT SET. THEN 

IF <SUC> DRIVE 0^ 

AVAILABLE. THEN 

SET DR1VE=1 FOR PRINT 

SET DROP AVAIL SIDE 00, DRIVE »'. 

IF RXES 

SIDE RDY NOT SET. THEN 
DROP SIDE #1. DRIVE *1 
BR TO IF 'H* 
IF RXES 

DRIVE RDY NOT SET. THEN 
IF <SUC> DRIVE #0 
AVAILABLE, THEN 
SET ORIVE=0 

SET DROP AVAIL SIDE 00. DRIVE 00 
If RXES 

SIDE RDY NOT SET. THEN 
DROP SIDE #1. DRIVE 00 
If DROP AVAIL SIDE/DRIVE 
SET THEN 

CALL PRINT SYSTEM IDENT 

SET MSG-> 'DRIVE NOT RDY-IS DISK IN DRIVE & DOOR CLOSED 
PRINT MSG 

CALL PRINT SYSTEM IDENT 

CLEAR PRINT SIDE FLAG 

CALL PRINT DRIVE/SIDE IDENT 

DROP DRIVE SET -> IN <SUC> AVAIL 

SET MS6-> "DROPPED" 

PRINT MSG 

RETURN 



DROPAV: 0 



.-DROP AVAIL DRIVES/SIDES CONTROL 



SYSTEM AVAILABLE WORD 

<— SIDE & DRIVE BIT AVAILABLE 



♦ 4....^. 

I 10J 4 ! 2 ! 1 ' 

. 11! lOl'oi! 001 

: sD/ sd; sdi sd! 



<— side & drive code 



A A 

: drive 

! side 
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7482 

7483 

7484 

7485 

7486 

7487 

7488 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 

7497 

7498 

7499 

7500 

7501 

7502 

7503 

7504 

7505 006266 012737 000040 

7506 006274 052737 004000 

7507 006302 016103 000622 

7508 006306 042703 176257 

7509 006312 050337 000546 

7510 006316 012737 070017 

7511 006324 016103 000622 

7512 006330 042703 176777 

7513 006334 010337 0CC552 

7514 006340 032761 000020 

7515 006346 001403 

7516 006350 052737 000400 

7517 006356 032761 000400 

7518 006364 001403 

7519 006366 052737 000040 

7520 006374 012737 170000 

7521 006402 000240 

7522 006404 000207 
7523 
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MODULE 2.2.5.3 - SET TEST BITS IN CSR £ ESR 

.S8TTL MODULE 2.2.5.3 - SET TEST BITS IN CSR t ESR 

BEGINROUTINE (MOD 2.2.5.3 - SET TEST BITS IN CSR t ESR) 
SETUP CSR C0MPARE=D0NE BIT 
SETUP CSR"COMPARE=DOUBLE DENSITY BIT 
GET <SUC> LAST COMMAND 
SAVE ALL READ/yRITE BITS 
SETUP CSR COMPARE=SET ALL READ/WRITE BITS 
SETUP CSR"MASK=DON'T CARE BITS 
CLEAR ALL'BUT SIDE BIT FROM <SUC> LAST COMMAND 
SETUP ESR COMPARE=SIDE BIT AS SET FROM <SUC> LAST CMD 

IF <suc> Cast com>M>=ORi^EM} selected 

: THEN 

SETUP ESR C0MAPRE=DRIVE#1 

END IF 

IF <SUC> LAST COMMAND=DOUBLE DENSITY BIT SET 
: THEN 

SETUP ESR COMPARE=DRIVE DOUBLE DENSITY BIT SET 

END IF 

SETUP ESR MASK=DON'T CARE BITS 
ENDROUTINE * 



SEO 0048 



000546 
000546 



000544 



000622 

000552 
000622 

000552 
000550 



CAJ 
CBJ 



STSTBT: MOV #Dr«IT,CSRCMP 

BIS «RX2BIT,CSRCMP 

MOV S0CM0(R1),R3 

BIC #176257,R3 

BIS R3,CSRCMP 

MOV 0?oo^7,csfmsK 

MOV S0CMD(R1),R3 

BIC **CSJDE1.R3 

MOV R3,ES«CHP 

IA2253: BIT #0RV1,S0C«D<R1) 

BEO 182253 

BIS M)RJVE1 .ESRCMP 

182253: BIT M>EfeJT,S0CMD(R1 

BEO ES2253 

BIS M>RVDEN.ESRCMP 

E82253: MOV *170000,ESR«SK 

NOP 

X2253; RETURN 



SET DONE BIT CK-CSR MODULE 

SET DOUBLE DENSITY BIT CK-CSR COMPARE 

SET <SUC> COMMAND 

SAVE ALL R/U BITS 

SET R/W BITS FOR-CSR COMPARE 

SET-CSA DON'T CARE BIT MASK 

GET <SUC> COMMAND 

CLEAR ALL BIT SIDE BIT 

SET SIDE BIT (IF SELECTED)-ESR COMAPRE 

IF DRIVE 0^ 

SELECTED IN COMMAND. THEN 

SET DRIVE #1 BIT-ESR COMPARE 
);IF DOUBLE DENSITY 
.SELECTED IN COMMAND, THEN 
;SET DRIVE DENSITY BIT-ESR COMPARE 
;SET ESR DON'T CARE BIT MASK 

•RETURN 
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CZRXEA.P11 20-SEP-78 10:48 MODULE 2.2.5.^ - LOOPING MODULE SEO 0049 

7525 .S8TTL MODULE 2.2.5.4 - LOOPING MODULE 

7526 ; 

7527 



7528 


006406 


000240 






LOOP: 


NOP 






7529 


006410 


005737 


000516 






TST 


DBGfLG 


;IF DEBUG FLAG 


7530 


006414 


001464 








BEQ 


X2254 


;SET, THEN 


7531 


006416 


012777 


101000 


1 72060 




BIT 


«101000.aSWR 


;IF HALT ON ERR OR LOOP ON ERR 


7532 


006424 


001460 








BEQ 


X2254 


;SET, THEN 


7533 


006426 


005037 


000602 
017417 






CLR 


HDRFLG 


.•CLEAR HEADER FLAG 


7534 


006432 


012737 


000600 




MOV 


WSGLP.TMSGAD 


.SET MODULE MESSAGE 


7535 


006440 


016137 


000622 


000542 




MOV 


S0CMD(R1),CM0 


;GET <SUC> COMMAND 


7536 


006446 


013737 


000542 


000540 


L00P1 : 


MOV 


CMD.WDOT 


.-PASS COMMAND TO OUTPUT MODULE 


7537 


006454 


004737 


010404 






CALL 


CSRCHK 


.CALL CSR CHECK 


7538 


006460 


005700 








TST 


RO 


;IF RXCS ERROR 


7539 


006462 


001416 








BEQ 


L00P2 


.-SET. THEN 


7540 


006464 


004737 


012262 






JSR 


PCeSINIT 


.•CHECK SUR FOR BUS INITIALIZE 


(1) 


006470 


012777 


001000 


172006 




BIT 


ffSW09,aSUR 


.•CHECK FOR LOOP ON ERROR 


(1) 


006476 


001363 








BNE 


L00P1 


;G0 TO LOOP ERROR 


(1 ) 


006500 


004737 


012240 






JSR 


PC.ERRSET 




(2) 


006504 


000007 








.WORD 


M7 


; FATAL ERR # 7 - LOOPING MOD-CSR ERR 


(1) 


006506 


005777 


1 71 772 






TST 


asuR 


.•CHECK FOR HALT ON ERROR 


(1 ) 


006512 


100001 








BPL 


IS 


.•HALT IF SET 


(1 ) 


006514 


000000 








HALT 




;<L00PIN6 MOD-CSR £RR> 


(1 ) 


006516 


000240 






1$: 


NOP 






7541 


006520 


004737 


010624 




L00P2 : 


CALL 


ESRCHK 


.•CALL ESR CHECK 


7542 


006524 


005700 








TST 


RO 


;IF RXES ERROR 


7543 


006526 


001416 








BEQ 


L00P3 


;SET. THEN 


7544 


006530 


004737 


012262 






JSR 


PCBSIHIJ 


.CHECK SyR FOR BUS INITIALIZE 


(1 ) 


006534 


052777 


001000 


1 71 742 




BIT 


#SW09,aSWR 


.•CHECK FOR LOOP ON ERROR 


(1) 


006542 


001341 








BNE 


L00P1 


;G0 TO LOOP ERROR 


(1) 


006544 


004737 


012240 






JSR 


PC.ERRSET 




(2) 


006550 


000010 
005777 








.WORD 


#10 


.-FATAL ERR # 10 - LOOPING MOO-ESR ERR 


(1) 


006552 


171726 






TST 


aswR 


.-CHECK FOR HALT ON ERROR 


(1) 


006556 


100001 








BPL 


1$ 


.HALT IF SET 


(1) 


006560 


000000 








HALT 




;<LOOPING MOD-ESR ERR> 


(1) 


006562 


000240 






1$: 


HOP 




7545 


006564 


000240 






L00P3: 


NOP 






7546 


006566 


000207 






X2254: 


RETURN 




•RETURN 



7547 
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SEO 0050 



7549 

7550 

7551 

7552 

7533 

7554 

7555 

7556 

7557 

7558 

7559 

7560 

7561 

7562 

7563 

7564 

7565 

7566 

7567 

7568 

7569 

7570 

7571 

7572 

7573 

7574 

7575 

7576 

7577 

7578 

7579 

7580 

7581 

7582 

7583 

7584 

7585 

7586 

7587 

7588 

7589 

7590 

7591 

7592 

7593 

7594 

7595 

7596 

7597 

7598 

7599 

7600 

7601 

7602 

7603 



.S8TTL MODULE 2.3 - SYSTEM STATUS 

BEGINROUTINE (MOD 2.3 - SYSTEM STATUS) 

IF SYSTE/i#0 AVAIL=0 6 SYSTEM#0=SELECTED [a: 
THEN 

SET <SUC>=0 

CALL DROP SYSTEM (MOD 2.3.2) 

ENDIF 

IF SYSTEM#1 AVAIL=0 & SYSTEM*1=SELECTED C83 
THEN 

SET <SUC>=1 

CALL DROP SYSTEM (MOD 2.3.2) 

ENDIF 

IF SYSTEMIC ft SYSTEM#1=N0T SELECTED CCJ 
THEN 

SET SYSTEM FLAG 

SET MSG 'UO SYSTEM AVAILABLE TO FORMATER" 
ELSE 

IF SYSTEM#1=SELECTED CDJ 
THEN 

IF SYSTEM*!. DOMES 1 CE3 
THEN 

IF SYSTEM#0 SELECTED [FJ 
THEN 

IF SYSTEM#0 D0NE=1 CG] 
THEN 

SET SYSTEM FLAG 

CALL PRINT SYSTEM STATUS (MOD 2.3.1) 
CLEAR SVSTEMHrO ft SYSTEWI DONE 
SETUP FORMATTER MSG 

ELSE 

CALL SYSTEM TIMEOUT CHECK (MOD 2.3.3) 

ENDIF 
ELSE 

SET SYSTEM FLAG 

CALL PRINT SYSTEM STATUS (MOD 2.3.1) 

CLEAR SYSTE«»1 DONE 
SETUP FORMATTER MSG 

ENDIF 
ELSE 

CALL SYSTEM TIMEOUT CHECK (MOD 2.3.3) 

ENDIF 
ELSE 

IF SYSTEM#0 D0NE=1 CHD 
THEN 

SET SYSTEM FLAG 

CALL PRINT SYSTEM STATUS (MOD 2.5.1) 

CLEAR SYSTEM#0 DONE 
SETUP FORMATTER MSG 

ELSE 

CALL «^YSTEM TIMEOUT CHECK (MOD 2.3.3) 

ENDIF 

ENDIF 
ENDIF 
ENDROUTINE 



CZRXEAO 


RX02 futr prog 


MACY! 1 

ill 


30(1046) 


20-SEP 


-78 10. 


M 4 

48 PAGE 68-15 










CZRXEA. 

7605 
7606 
7607 


P1 1 20-SEP-78 


10:48 




MODULE 


2.3 - SYSTEM STATUS 








SEO 0051 


006570 


000240 






0 

SVSTAT; 


NOP 












7608 


006572 


005737 


000612 




IA23: 


TST 


SOAV 


IF SySTEM#0 AVAIL 








7609 


006576 


001010 








ONE 


1823 


EQUALS ZERO AND 








7610 


006600 


0Z2777 


000001 


171676 




BIT 


«i,aswR 


SYSTEMIC 








7611 


006606 


001404 








BEQ 


1823 


SELECTED, THEN 








7612 


006610 


005037 


000610 






CLR 


sue 


SET <SUC>=0 








7613 


006614 


004737 


007264 






CALL 


SYSDRP 


CALL SYSTEM DROP (MOD 2.3.2) 








76U 


006620 


005737 


000614 




1823; 


TST 


S1AV 


IF SYSTEMfl AVAIL 








7615 


006624 


001011 








BNE 


IC23 


EQUALS ZERO AND 








7616 


006626 


032777 


000002 


171650 




BIT 


#2.asuR 


SYSTEM*1 








7617 


006634 


001405 








BEO 


IC23 


SELECTED THEN 








7618 


006636 


012737 


000001 


000610 




MOV 


#1.SUC 


SET <SUC>=1 








7619 


006644 


004737 


007264 






CALL 


SYSDRP 


CALL SYSTEM DROP (MOD 2.3.2) 








7620 


006650 


032777 


000003 


171626 


IC23: 


BIT 


f3,aSUR 


■IF SrS#0 ft SYS#1 








7621 


006656 


001006 








BNE 


ID23 


■NOT SELECTED OR DESELECTED, THEN 








7622 


006660 


005237 


000574 






INC 


SYSFLG 


■SET SrSTEM FLAG 

■SET SYSTEM MSG "NO SYSTEMS TO FORMA 1 
•8R TO END 'C 








7623 


006664 


012737 


014206 


000572 




MOV 


#MS68.SYSMSG 


r" 






7624 


006672 


000471 








BR 


EC23 








7625 


006674 


052777 


000002 


171602 


ID23: 


BIT 


f2,aSUR 


■IF SYSTEWI 








7626 


006702 


001446 








BEQ 


IH23 


•SELECTED, THEN 








7627 


006704 


005737 


000630 




IE23: 


TST 


SIDN 


•IF SYSTEWl DONE 








7628 


006710 


001440 








BEQ 


LE23 


•SET, THEN 








7629 


006712 


052777 


000001 


171564 


IF23: 


BIT 


#1 ,aswR 


•IF SVSTEWO 








7630 


006720 


001422 








BEQ 


LF23 


•SELECTED, THEN 








7631 


006722 


905737 


000626 




IG23: 


TST 


SODN 


;IF SYSTEmK) DONE 








7632 


006726 


001414 








BEO 


LG23 


;SET. THEN 








7633 


006730 


005237 


000574 






INC 


SYSFLG 


;S£T SYSTEM FLAG 








763A 


006734 


004737 


007062 






CALL 


PTSVST 


;CALL PRINT SYSTEM STATUS (MOD 


2. 


3.1) 




7635 


006740 


005037 


000626 






CLR 


SODN 


; CLEAR SYSTEWrO DONE 








7636 


006744 


005037 


000630 






CLR 


SIDN 


; CLEAR SYSTEW1 DONE 

;SET SYSTEM MSG 'TORHAT COMPLETED" 

rflR TO END 'C 








7637 


006750 


01 2737 


014246 


000572 




MOV 


#MSG9,SySHSG 








7638 


006756 


000437 








BR 


EC23 








7639 


006760 


004737 


007342 




LG23: 


CALL 


SyTMCK 


;CALL SYSTFfi TIMEOUT CHECK (MOD 
rSR TO E,*i> 'C 


2. 


3.3) 




76A0 


006764 


000434 








BR 


EC23 








7(A^ 


006766 


005237 


000574 




LF23: 


INC 


SYSFLG 


;SET SYSTEM FLAG 








7(A2 


006772 


004737 


007062 






CALL 


PTSYST 


;CALL PRINT SYSTEM STATUS (MOD 


2. 


3.1) 




7643 


006776 


005037 


000630 






CLR 


SIDN 


•CLEAR SYSTEM»1 DONE 

;SET SYSTEM MSG "FORMAT COMPLETED" 

jBR TO END 'C 








7644 


007002 


012737 


014246 


000572 




MOV 


iWSG9,SYSMSG 








7645 


007010 


000422 








BR 


EC23 








7646 


007012 


004737 


007342 




LE23: 


CALL 


SYTMCK 


rCALL SYSTEM TIMEOUT CHECK (MOD 
rflR TO END 'C 


2. 


3.3) 




7647 


007016 


000417 








BR 


EC23 








7648 


007020 


005737 


000626 




IH23: 


TST 


SODN 


;IF SYSTEMW DONE 








7649 


007024 


001412 








BEQ 


LH23 


;SET, THEN 








7650 


007026 


005237 


000574 






INC 


SYSFLG 


•SET SYSTEM FLAG 








7651 


007032 


004737 


007062 






CALL 


PTSYST 


•CALL PRINT SYSTEM STATUS (MOD 


2. 


3.1 ) 




7652 


007036 


005Q37 


000626 






CLR 


SODN 


•CLEAR SYSTEM*0 DONE 








7653 


007042 


012737 


014246 


000572 




MOV 


*MSG9.SYSMS6 


;SET SYSTEM MSG 'TORMAT COMPLETED" 
;8R TO END 'C 








?'654 


007050 


000402 








BR 


EC23 








7655 


007052 


004737 


007342 




LH23 : 


CALL 


SYTMCK 


'CALL SYSTEM TIMEOUT CHECK (MOD 


2. 


5.3) 




7656 


007056 


000240 






EC23: 


NOP 












7b57 


007060 


000207 






X23: 


RETURN 




; RE TURN 








7658 
































* 
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SfO 0052 



7660 

7661 

7662 

7663 

7664 

7665 

7666 

7667 

7668 

7669 

7670 

7671 

7672 

7673 

7674 

7675 

7676 

7677 

7678 

7679 

7680 

7681 

7682 

7683 

7684 

7685 

7686 

7687 

7688 

7689 

7690 



.SBTTL MODULE 2.3.1 



PRINT SYSTEM STATUS 

PRINT SYSTEM STATUS) 



8EGINR0UTINE (MOD 2.3.1 
SET <SUC>=0 
BEGINDO 

INITIALIZE DRIVE PTR=1 , DRIVE CTR=0 
IF <SUC> D0NE=SET 
THEN 

PRINT "SYSTEM: <SUC> FORMAT DONE ON FOLLOWING:" 
BEGINDO 

• IF <SUC> AVAIL=8IT SET AT SYSTEM AVAIL PTR 
THEN 

IF <SUC> AVAIL=EITHER SIDE AVAIL 
THEN 

SET SIDE FLAG 
ELSE 

CLEAR SIDE FLAG 

END IF 

SET DRIVE * 
SET SIDE * 

CALL PRINT DRIVES IDENT 

ENDIF 

INCREMENT DRIVE COUNTER 
SHIFT LEFT DRIVE POINTER 
DO UNTIL DRIVE C0UNTER=1 
ENDDO 

ENDIF 

INCREMENT <SUC> ' 
DO UNTIL <SUC>=2 
ENDDO 
ENDfiOUTINE 



CA] 
C8] 



CD] 
CE] 
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7692 ; 

7693 

769<. 007062 PTSYST: 



(1 ) 


007062 


012704 


014452 
013232 






MOV 


*MSG14,fi4 


SET MSG-> TOfiMAT DONE ON FCLLOUING 


(1 ) 


007066 


004737 






CALL 


TTOUT 


PRINT M5G 


7695 


007072 


005037 


000610 






CLR 


sue 


SET <SUC>=0 


7696 


007076 


012737 


000001 


AA7^^ ^ 

007262 


BA231 : 


MOV 


*1, DRVPTR , 


INITIALIZE DRIVE P0INTER=1 


7697 


007104 


005057 


007260 






CLR 


DRVCNT 


INITIALIZE DRIVE COUNTER=0 




007110 


004737 


Ai A1 OZ. 

01 01 26 






CALL 


SSUCOF 


CALL SET <SUC> OFFSET 


7699 




005761 


000626 




18231 : 


T C T 

TST 


SODNlRU , 


IF <SUC> DONE 


frOO 


007120 


001450 








OP A 

6EQ 


CD^71 

E8231 


SET, THEN 




007122 


AA/ 7T7 


011132 






CALL 


PRTSrS , 


CALL PRINT StSTEM I DENT 


f fyjc 


OOr lc6 


AAAOy A 






or "^Tl • 
BCc ll . 


ft. IAD 

NOP 








AA71 TtA 


033r61 


\jQfcbd 


AAAA1 O 

00061 £ 


1 f\^71 • 

iD23l : 


Bi T 


r\Dv/OTO rAAki/Di\ 
DRVPTR, SOAVIRM , 


IF DRIVE P01NTtR=<SUC> AVAIL BIT 


/^U*» 


AA71 


AA1 / "Tl 

00143 1 








r> c rt 


cr\"57i 
cD<:31 


SET, THEN 


/^U5 


AA71 / A 


AT'57iL1 


AAAA1 y 
000014 


AAA^ 1 T 

000612 


IE231 : 


Q I T 

□i T 


M1 / CAAII/OI \ 

*14-50AVvRl > 

1 C071 


IF EITHER SIDE IN <SUC> AVAIl 


7*7 A^ 


AA71 / iL 


AA1 / AT 

001403 








A 


. CC T TLJCft.1 

SET, THEN 


( f\jf 


AA71 CA 


AA017 

003<:3^ 


A1 1 07A 

01 1 c30 






INC 


PlSJDr 


■SET PRINT SIDE FLAG 
oR TO cNO c 


77Afl 


AA71 


AAAZ. A'? 










CC '371 


77AQ 


AA71 <A 


AACAT7 

00503 ' 


A1 1 07A 
U 1 1 c3U 




1 £071 . 


lLR 




• n CAO DDTAIT CTr\C CI A/* 

;CLcAH r7<INT SIDE rLA( 


771 A 


AA71 AO 

AA71 7A 
UUf 1 f\j 


A1 7717 


AA7DAA 
00^ tOU 


A1 1 OD/ 

01 1 <:<:4 


CC 071 . 


MAV/ 


f\DV/rAIT r\D T vyc 
UKVLNF , UK JVC 


;utT DHIVc COUNT 


771 1 




AAAAAO 


A1 1 DO/ 

0 1 1 cc4 




oi L 


if o r\o r i/c 


;CLtAR SIDE BIT (DRIVc-DRI VE'J PRINT 


771 5 


AA71 7A 


A1 7777 


AA7'D*.A 

OO^coO 


A1 1 OOA 




nUV 


f\Oty^AIT C T f\C 

PHVCNi.SiPc , 


OCT DHiVc COUNT 


771 7 


OUf cU*« 


AAA '377 


A1 1 O'Dt^. 










■ CUTCT IT OT/*LIT TA CLII^J CfAC OfT 

;5nirl IT KiuHT TO 5H0W SIDE oI T 




007210 


042737 


-[77776 


011226 




BIC 


#177776. SIDE 


; CLEAR ANY JUNK BITS 


f r 1 3 


\JM( c lo 


fW.777 


A1 1 1 






lALL 


rK F wHV 


; CALL PRJNT Pni VE JDENI 


771 A 


00^ dec 


f\ncjx7 

WJCJf 


UO^ cOU 




Cf\D71 • 
tP^31 . 




DHVLNl 


; JNCHcWcNF DRIVE COUNF cK 


771 7 

f f\ f 




AA^ T77 


AA70A'5 

00^262 






ASL 


DRVPTR 


SHIFT LEFT DRIVE POINTER 


7718 


007232 


022717 


000004 


007260 


UC231 : 


CMP 


#4, DRVCNT 


;D0 UNTIL DRIVE COUNT 


7719 


007240 


001332 








BNE 


BC231 


; EQUALS 4 


7720 


007242 


005237 


000610 




EB231 : 


INC 


sue 


.•INCREMENT <SUC> TO NEXT SYSTEM 


7721 


007246 


022737 


000002 


000610 


UA231 : 


CMP 


#2. sue 


; DO UNTIL <SUC> 


7722 


007254 


001310 








BNE 


BA231 


; EQUALS 2 


7721 


007256 


000207 






X231 : 


RETURN 




; RE TURN 


7721^ 
772S 


















007260 


000000 






DRVCNT: 


0 




; DRIVE COUNTER 


772b 


007262 


000000 






DRVPTR: 


0 




; DRIVE POINTER 


7727 
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Seo 0054 



7729 

7730 

7731 

7732 

7733 

7734 

7735 

7736 

7737 

7738 

7739 

7740 

7741 

7742 

7743 

7744 

7745 

7746 

7747 

7748 

7749 

7750 

7751 

7752 

7753 

7754 

7755 

7756 

7757 



,S8TTL MODULE 2.3.2 - SYSTEM DROP 

BEGINROUTINE (MOD 2.3.2 SYSTEM DROP) 
SETUP I PRINT MSG "SYSTEM" 
SETUP £ PRINT SYSTEM* 
IF sue = 0 
THEN 

DESELECT SYSTEM*0 
ELSE 

DESELECT SYSTEM*! 
ENDIF 

SETUP S PRINT MSG "HO DRIVES AVAIL - DROPPED' 
ENDROUTINE 



007264 
007270 
007274 
007300 
007304 
007310 
007312 
007320 
007322 
007330 
007334 
007340 



012704 
004737 
01 3703 
004737 
005737 
001004 
0^2777 
000403 
0^2777 
012704 
004737 
000207 



016425 
013232 
000610 
013346 
000610 

000001 171164 



000002 
016475 
013232 



171154 



SYSDRP: 


MOV 


*MSG51.R4 


SETUP MSG "SYSTEM:" 




CALL 


TTOUT 


PRINT IT! 




MOV 


SUC,R3 


SET SYSTE # 




CALL 


OCTP 


PRINT IT! 


IA232: 


TST 


sue 


IF SYSTEM UNDER CONTROL 




BNE 


LA232 


•IS ZERO, THEN 




BIC 


*i,aswR 


•DESELECT SYSTEM ZERO 
•8R TO ENDIF 'A* 




BR 


EA232 


LA232: 


BK 


*2.asuR 


;ELSE DESELECT SYSTEM ONE 

;SETUP MSG 'DROPPED FROM FORMATTER" 


EA232: 


MOV 


*«SG53,R4 




CALL 


TTOUT 


•PRINT IT! 


X232: 


RETURN 




•RETURN 



D 5 

rZRXEAO RX02 FMTR PROG MACYll 30(1046) 20-SEP-78 10:48 PAGE 68-19 
CZRXEA. Pn 20-SEP-78 10:48 MODULE 2.3.3 - SYSTEM TIMEOUT CHECK 

,S8TTL MODULE 2.3.3 - SYSTEM TIMEOUT CHECK 

8EGINR0UTINE (MOD 2.3.3 - SYSTEM TIMEOUT CHECK) 
IF SYSTEM ERROR NOT=0 
THEN " 

IF SVSTEM ERROR=SYS#0 TIME OUT ERROR 
THEN 

SET <SUC>=0 
CALL SYSTEM IDENT 
SETUP ft PRINT TIME OUT ERROR 
CLEAR SYS #0 AVAILABLE WORD 

END IF 

IF SYSTEM ERR0R=SYS#1 TIMEOUT ERROR 
THEN 

SET <SUC>=1 
CALL SYSTEM IDENT 
SETUP g PRINT TIMEOUT ERROR 
CLEAR SYS#1 AVAILABLE WORD 

END IF 

ENDIF 
ENDROUTINE 



SEO 0055 



7759 








7760 








7761 








7762 








7761 








77(A 








7765 








7766 








7767 








7768 








7769 








7770 








7771 








7772 








7771 








7771, 








777^ 








777t 








7777 








7778 








7779 








7780 








7781 








7782 


007342 


000240 




7783 


007344 


005737 


000606 


7''B^ 


007350 


001446 




7785 


007352 


032737 


000010 


7786 


007360 


001417 




7787 


007362 


005037 


000610 


7788 


007366 


004737 


011132 


7789 


007372 


012704 


014272 


(1) 


007376 


004737 


013232 


7790 


007402 


012704 


015702 


(1) 


007406 


004737 


013232 


7791 


007412 


005037 


000612 


7792 


007416 


000423 




7793 


007420 


032737 


000020 


779^ 


007426 


001417 




7795 


007430 


012737 


000001 


7796 


007436 


004737 


011132 


7797 


007442 


012704 


014272 


(1) 


007446 


004737 


013232 


7798 


007452 


012704 


015702 


(1) 


007456 


004737 


013232 


7799 


007462 


005037 


000614 


7800 


007466 


005037 


000606 


7801 


007472 


000207 




7802 









CA3 
C8J 



CCJ 



SYTMCK: 
IA233: 

18233: 



iC233: 



EA233: 



NOP 

TST 

BEO 

BIT 

BEO 

CLR 

CALL 

MOV 

CALL 

NOV 

CALL 

CLR 

BR 

BIT 

BEO 

MOV 

CALL 

MUV 

CALL 

MOV 

CALL 

CLR 

CLR 

RETURN 



SYSERR 
fcA233 

#10.SYSERR 
IC253 

sue 

PRTSYS 

/mSG10,R4 

TTOUT 

«MSG41 ,R4 

TTOUT 

SOAV 

EA233 

#20. SYSERR 

EA233 

#1,SUC 

PRTSYS 

*MS610,R4 

TTOUT 

#MSG41 ,R4 

TTOUT 

S1AV 

SYSERR 



IF SYSTEM ERROR 

NOT = 0, THEN 

IF SYSTEM ERROR 

EQUALS SYS#0 TIME OUT ERR 

SET <SUC> = 0 

CALL PRINT SYSTEM IDENT 

SET MSG-> "INTERRUPT DID NOT OCCUR" 

PRINT MSG 

SET nS6-> "-TIME OUT ERROR" 
PRINT nSG 

CLEAR SVS*0 AVIALA8LE 
BR TO END 'A* 
IF SYSTEM ERROR 

EQUALS SYS#1 TIME OUT ERR . THEN 

SET <SUC> = 1 

CALL PRINT SYSTEM IDENT 

SET MSG-> "INTERRUPT DID NOT OCCUR" 

PRINT MSG 

SET MSG-> "-TIME OUT ERROR" 
PRINT MSG 

CLEAR SYS#1 AVIALABLE 
CLEAR SYSTEM ERROR 
RETURN 
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SEO 0056 



7804 

7805 

7806 

7807 

7808 

7809 

7810 

7811 

7812 

7813 

7814 

7815 

7816 

7817 

7818 

7819 

7820 

7821 

7822 

7823 

7824 

7825 

7826 

7827 

7828 

7829 

7830 

7831 

7832 

7833 

7834 

7835 

7836 

7837 

7838 

7839 

7840 

7841 

7842 

7843 

7844 

7845 

7846 

7847 

7348 

7849 

7850 

7851 

7852 



,S8TTL MODULE 2.4 - WATCH DOG SYSTEM#0 



007474 
007500 
007502 
007506 
007512 
007516 
007522 
007530 
007532 
007536 
007542 
007550 
007552 
007556 
007564 



005737 
001406 
005037 
005037 
005037 
005237 
023737 
103415 
005037 
005237 
023737 
103405 
005037 
052737 
000207 



007670 

007670 
007566 
007570 
007566 
007566 

007566 
007570 
007570 

007570 
000010 



007674 

000556 
000606 



WATCHO: 



1$: 



XWATO: 



TST 
BEO 

CLR 
CLR 
CLR 
JNC 
CMP 
BLO 
CLR 
JNC 
CMP 
BLO 
CLR 
BIS 

RETURN 



WAT I NO 
1S 

UATINO 
WCNTRO 
WML TO 
WCNTRO 

WCNTRO. WCNTMX 
XWATO 
WCNTRO 
lilLTO 

WMLTO,SOWMLT 
XWATO 
M1LT0 
«10,SYSERR 



IF WATCH DOG INITO 
NOT = 0. THEN 

CLEAR WATCHDOG INIT MO FLAG 

CLEAR WATCH DOG COUNTER MO 

CLEAR WATCH DOG MUl TIPLJER #0 

INCREMENT WATCH DOG COUNTER MO 

IF COUNTER 

IS = TO COUNT MAX 

CLEAR WATCH DOG COUNTER MO 

INCREMENT WATCH DOG MULTIPIER #0 

IF MULTIPLIER 

IS = TO MULTIPLIER MAX 

CLEAR WATCH DOG MULTIPLIER MO 

SET SYSTEM ERR = TIME OUT 

RETURN 



007566 


000000 






• 

WCNTRO: 


0 




; WATCH DOG COUNTER #0 


007570 








UMl Tn> 


n 




'UATrU t\nC Mil TFDl ICO M(\ 










• 

.S8TTL 


MODULE 


2.5 - WATCH DOG 


SYSTEMtl 


007572 


005737 


007672 




WATCHI : 


TST 


WATIN1 


;IF WATCH DOG INITl 


007576 


001406 








BEO 


1$ 


;NOT = 1, THEN 


007600 


005037 


007672 






CLR 


UATIN1 


.■CLEAR UATCH DOG INIT f1 FLAG 


007604 


005037 


007664 






CLR 


WCNTR1 


: CLEAR UATCH DOG COUNTER M^ 


007610 


005037 


007666 






CLR 


UMLTI 


.'CLEAR UATCH DOG MULTIPLIER M^ 


007614 


005237 


007664 




1$; 


INC 


WCNTRl 


.-INCREMENT UATCH DOG COUNTER M^ 


007620 


023737 


007664 


007674 




CMP 


WCNTR1 ,WCNTMX 


;IF COUNTER 


007626 


103415 








BLO 


XUAT1 


:IS = TO COUNT MAX 


007630 


005037 


007664 






CLR 


WCNTRl 


.•CLEAR UATCH DOG COUNTER #1 


007634 


005237 


007666 






INC 


UML^I 


.•INCREMENT UATCH DOG MULTIPIER *1 


007640 


023737 


007666 


000560 




CMP 


»#(LT1.S1WMLT 


;IF MULTIPLIER 


007646 


103405 








BLO 


XWATl 


;IS = TO MULTIPLIER MAX 


007650 


005037 


007666 






CLR 


WMLTl 


.CLEAR UATCH DOG MULTIPLIER »1 


007654 


052737 


000020 


000606 




BIS 


»20.SYSERR 


;SET SYSTEM ERR = TIME OUT 


007662 


000207 






XWATl: 


RETURN 


.RETURN 


007664 


000000 






WCNTR1 : 


0 




.'WATCH DOG COUNTER #1 


007666 


000000 






WMLTl: 


0 




.'WATCH DOG MULTIPLIER ^^^ 


007670 


000000 






WATINO: 


0 




.•WATCH DOG INITIALIZE FLAG *0 


007672 


000000 






WATINl: 


0 




.•WATCH DOG INITIALIZE FLAG M^ 


007674 


1 77777 






WCNTMX: 


-1 




.•WATCH DOGS MAX COUNT LIMIT 
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7854 

7855 

7856 

7857 

7858 

7859 

7860 

7861 

7862 

7865 

7864 

7865 

7866 

7867 

7868 

7869 

7870 

7871 

7872 

7873 

7874 

7875 

7876 007676 

(1) 007676 012704 01670i 
(1) 007702 004737 013232 

7877 007706 004737 012624 

7878 007712 122737 000131 

7879 007720 001022 

7880 007722 012704 016766 
(1) 007726 004737 013232 

7881 007732 012704 017065 
(1) 007736 004737 013232 

7882 007742 004737 013156 

7883 007746 122737 000015 

7884 007754 001372 

7885 007756 012737 000002 

7886 007764 000414 

7887 007766 

(1) 007766 012704 017117 
(1) 007772 004737 013232 

7888 007776 012737 000100 

7889 010004 052777 000100 

7890 010012 005277 170262 

7891 010016 000207 
7892 
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MODULE 3.0 - OUTPUT SYSTEM DONE 

.S8TTL MODULE 3.0 - OUTPUT SYSTEM DONE 



SEO 0057 



8EGINR0UTJNE (MOD 3.0 - OUTPUT SYSTEM DONE) 

SETUP t PRINT 'DO YOU WANT TO FORMAT MORE DISKETTES?" 
CALL GET ANSWER 

IF ANSWER=YES [A] 
THEN 

SETUP & PRINT "REMOVE FORMATTED DISKET^S K INSERT DISKETTS TO BE FORMATTED" 
SETUP & PRINT "— >TYPE "CR" WHEN READY" 

BGNDO C8D 
: GET OPERATOR RESPONSE-CALL TTY INPUT 
: DO UNTIL TTY CTR="CR" 
ENDDO 

ELSE 

SETUP t PRINT 'TORMATTER DONE-RESTART MONITOR, UPDATE PR06RAM~>TVPE CTRL-C TO S 
SET SYSTEM FLAG=IDLE 

ENABLE TTY INTERRUPTS t SET TTY GO BIT 
ENDIF 
ENDROUTINE 



OTSYDN: 



000530 IA30: 



000526 
000574 



000574 
170266 



BB30: 



LA30: 



X30: 



MOV 

CALL 

CALL 

crvB 

BNE 

MOV 

CALL 

MOV 

CALL 

CALL 

CMP8 

BNE 

MOV 

BR 

MOV 

CALL 
MOV 
BIS 
INC 

RETURN 



#MSG56,R4 
TTOUT 
GETANS 
#'Y, ANSWER 
LA30 

*MSG57,R4 

TTOUT 

*MSG58.R4 

TTOUT 

TTIN 

#15, TIB 

BB30 

-r2.SySFLG 
X30 

mSG59,R4 

TTOUT 

#100.SYSFLG 

*8IT6.aTKS 

aTKS 



SET MSG-> DO YOU WANT TO FORMAT MORE DISKETTES? 
PRINT MSG 

CALL GET OPERATOR ANSWER 
IF ANSWER 
IS YES THEN 

SET MSG-> REMOVE FORMATTED DISKETTES £ INSERT DISKETTCS 
PRINT MSG 

SET nSG-> TYPE "CR" WHEN READY 

PRINT MSG 

CALL TTY INPUT 

DO UNTIL 

CHARArTER="CR" 

SET SYSTEM FLAG=RE START 

BR TO nODULE EXIT 

SET «S6-> FORMATTER DONE-RESTART MONITOR. UPDATE PROGRA 
PRINT MSG 

SET SYSTEM FLAG=IDLE 

SET TTY KEYBOARD INTERRLPT BIT 

SET TTY KEYBOARD GO BIT 

RETURN 
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.S8TTL MODULE U.PRIHl - SET PROCESSOR PRIORITY HIGH 



SFO 0058 



7fiQ/. 








700^ 
















7RQ7 


UlUUcU 


m 5777 




7RQR 


ni nn^A 


nn/.7<7 


U iUUjU 


7ROQ 




n<V^0A7 

UUUcUf 












(T\J 1 








7Qn5 








7Qn7 
















7Qr>«; 




Uic'jf 








nfV.7'^7 




7on7 




nf4n?n7 

KIKAJCvf 












TQOQ 








7Qin 

f T 1 U 








7Q1 1 








701 P 








7Q1 7 


ninnsn 








nioos6 

\J 1 W 


\J\J 1 MV J 






nioosA 


1fV»4^7 

1 V/O** J f 


m 0074 


7916 


nifw>? 






701 7 


ninoft^ 

w 1 wo** 




010074 


7918 


nino7? 






7Q1Q 










010074 


000000 




































7QPS 










\J 1 \J\Jf D 


OOA 777 


01 01 PA 


f Tc ' 




01 A1 77 


00071 ^ 


f TcO 


nini in 


01^177 


00071 ^ 




mm K^* 


vDc ' J » 


OOOOOP 






000P07 




f T J 1 








7932 

• 'C 








7933 








7934 








7935 








7936 


010126 


013701 


000610 


7937 


010132 


006301 




7938 


010134 


000207 




7939 









010074 PRIHI 



MOV #PR7,NEWPRI 
CALL SETPRI 
RETURN 



SETUP FOR PROCESSOR PRI LEV-7 

SET PROCESSOR FLAG 

RETURN 



.S8TTL MODULE U.PRILO - SET PROCESSOR PRIORITY LOW 



010074 PRILO: 



MOV 

CALL 

RETURN 



#PRO.NEWPRI 
SETPRI 



SETUP FOR PROCESSOR PRI LEV=0 

SET PROCESSOR PRI 

RETURN 



.S8TTL MODULE U.PROPRI - SET PROCESSOR PRI 



167704 1$: 



SETPRI: TST 
BEQ 
MTPS 
BR 
MOV 



SETPIX: RTS 



LSIFLG 
1S 

NEUPRI 
SETPIX 
NEUPRI, apsw 
PC 



;IF PROCESSOR IS 

;LSI, THEN 

;SET PROCESSOR PRI 

;8R TO END 

.SET PROCESSOR PRI 

.•RETURN 



NEWPRI: 0 



.NEW PROCESSOR PRIORITY 



.S8TTL MODULE U.SADR - SET SYSTEM BUS ADDRESS 



000472 
000474 
000474 



SSUCAD: C>»LL 
MOV 
MOV 
ADD 
RETURN 



SSUCOF .-CALL SET <SUC> OFFSET 

REGS0(R1).RXCSAD;SET NEW SYSTEM ADDRESS 
REGS0(R1),RXDBAD;SET NEW SYSTEM DB ADDR 
#2,RXDBAD :BlfP ADDRESS 

.•RETURN 



.S8TTL MODULE J.SUCO - SET SYSTEM UNDER CONTROL OFFSET 



SSUCOF 



MOV 
ASL 

RETURN 



SUC.R1 
R1 



GET SYSTEM UNDER CONTROL 

DOUBLE IT! FOR WORD OFFSET ADDRESSING 

RETURN 



CZRXEAO RX02 
CZRXEA.P11 



79^1 

79^2 

79^3 

79^4 

79A5 

79A6 

79<,7 

79A8 

79A9 

7950 

7951 

7952 

7953 

7954 

7955 

7956 

7957 

7958 

7959 

7960 

7961 

7962 

7963 

7964 

7965 

7966 



FMTR PROG 
20-SEP-78 



MACY11 
10:48 



30(1046) 



20-SEP-78 
MODULE U.OL 



10:48 PAGE 
- DELAY FOR 



H 5 
68-23 
"TR" OR 



DONE" 



SEQ 00';9 



.S8TTL MODULE U.DL - DELAY FOR "JR" OR 'DONE" 



010136 


013704 


010222 




• 

DELAY: 


MOV 


RYDX.R4 


SET READY DELAY MULT 




010142 


013703 


010224 




8DAUDL : 


MOV 


RYDLY. R3 


•SET READY DELAY 




010146 


033777 


010226 


000054 


BDeUDL : 


BIT 


RDYWD. aCSRADR 


IF READY 




010154 


001021 








BNE 


XUDL 


•EQUAL TO 'T' .THEN BR TO 


EXiT 


010156 


005303 








DEC 


R3 


•ELSE DECREMENT DELAY 




010160 


00137? 












■on IWTFI R3=0 




010162 


012737 


000007 


000524 




MOV 


*7.T08 


•SET UP BELL 




010170 


004737 


013700 






JSR 


PC. TOG 


•PRINT BELL 




010174 


005304 








DEC 


R4 


•DECREMENT DELAY MULT. 




010176 


001361 








BNE 


BDAUDL 


■DO UNTIL R4=0 




010200 


052737 


040000 


000606 




BIS 


#40000. SYSERR 


•SET TIME OUT ERR 




010206 


013737 


010226 


010402 




MOV 


RDYWD, TOE RBT 


;SET T.O. WORD 




010214 


004737 


010232 






JSR 


PC.TOPRT 


;G0 PRINT TIMEOUT ERRORS 




010220 


000207 






XUDL : 


RTS 


PC 


;RETURN TO CALLING MOD 




010222 


000015 






RYDX: 


15 




: READY MULTIPLIER 




010224 


100000 






RYDLY: 


100000 




•READY DELAY 




010226 


000000 






RDYWD: 


0 




:READY WORD - TEST FOR DEVICE READY 


010230 


000000 






CSRADR: 


0 




;CftS REG Of UNIT- WAITING 


FOR 



010232 032777 020000 



.S8TTL 
170244 tOPRT: 



END MODULE - 

TIME OUT ERROR PRINT 
BIT «eiT13,aSWR 



■If INHIBIT ERROR RESULTS 
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7968 


010240 


001057 








BNE 


TOPRTX 


7969 


01 0242 


004757 


011042 






JSR 


PCTSHDCK 


7970 


010246 


032737 


000040 


010402 


IS: 


BIT 


tDNBIT.TOERBT 


7971 


010254 


001405 








BEO 


2$ 


7972 


010256 


012704 


015031 






MOV 


#MSG30,R4 


7973 


010262 


004737 


013232 






JSR 


PC, T TOUT 


7974 


010266 


000404 








BR 


3$ 


7975 


010270 


012704 


015055 




2S: 


MOV 


irMSG31 ,R4 


7976 


010274 


004737 


013232 






JSR 


PCTTOUT 


7977 


010300 


012704 


015702 




3$: 


MOV 


4rMSG41 ,R4 


7978 


010304 


004737 


013232 






JSR 


PCTTOUT 


7979 


010310 


032777 


040000 

W^ WW w 


170166 




BIT 


#SU14,SSUR 


7980 


010316 


001430 








BEQ 


TOPRTX 


7961 


010320 


012704 


013742 






MOV 


MISGI ,R4 


7962 


010324 


004737 


013232 






JSR 


PCTTOUT 


7983 


010330 


01 7703 


170136 






MOV 


aRXCSAD.R3 


7964 


010334 


004737 


013334 






JSR 


PCOCTPE 


7985 


010340 


012704 


014564 






MOV 


4f1SG21 ,R4 


7966 


010344 


004737 


01 3232 






JSR 


PCTTOUT 


7987 


010350 


01 7703 


1 701 20 






MOV 


aRXDBA0.R3 


7968 


010354 


004737 


013334 






JSR 


PCOCTPE 


7989 


010360 


012704 


014564 






MOV 


«nSG21 ,R4 


7990 


010364 


004737 


013232 






JSR 


PCTTOUT 


7991 


010370 


013703 


000542 






MOV 


CMD.R3 


7992 


010374 


004737 


013346 






JSR 


PC.OCTP 


7993 


010400 


000207 






TOPRTX: 


RTS 


PC 


7994 
















7995 


010402 


000000 






T0ER8T; 


0 




7996 










• 







IS NOT SET. THEN 

CALL TEST HEADER CHECK 

IF READY WORD WAS SET TO 

TEST DONE BIT, THEN 

SET DONE NOT SET MSG 

PRINT MSG 

GO PRINT MSG 

SET TR BIT NOT SET MSG 

PRINT MSG 

SET TIME OUT MSG 

PRINT MSG 

IF EXTENDED ERROR REPORTS 

SET. THEN 

SET REG MSG 

PRINT MSG 

SET TO PRINT RXCS 

PRINT 

SET SPACES MSG 
PRINT 

SET TO PRINT RXES 
PRINT 

SET SPACES 
PRINT 

SET COMMAND 
PRINT COMMAND 
RETURN 
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7998 










.S8TTL 


RXCS 


ERROR CHECK 


7999 
8000 
























• 






8001 


010404 


017701 


170062 




CSRCHK: 


MOV 


aRXCSAD,R1 


8002 


010410 


043701 


000544 






BIC 


CSRMSK.R1 


8003 


010414 


023701 


000546 






CMP 


CSRCMP.R1 


8004 


010420 


001471 








BEQ 


5$ 


8005 


010422 


010137 


011540 




IS: 


MOV 


R1 ,BAOURD 


8006 


010426 


013737 


000546 


011536 




MOV 


CSRCIV>,CMPWRD 


8007 


010434 


012737 


011544 


011542 




MOV 


*CMSGT8,TABADR 


8008 


010442 


012737 


000004 


011534 




MOV 


*4 ,81 TOFF 


8009 


010450 


012737 


000014 


011532 




MOV 


*12..8ITLIM 


8010 


010456 


032777 


020000 


170020 




BIT 


#SUl3.aSUR 


8011 


010464 


001044 








BNE 


4$ 


8012 


010466 


004737 


011042 






CALL 


TSHDCK 


8013 


010472 


012704 
004737 


014722 




2$: 


MOV 


*rSG26.R4 


8014 


010476 


013232 






JSR 


Pl.TTOUT 


8015 


010502 


032777 


040000 






BIT 


ATSuu.asuR 


8016 


010510 


001430 








BEQ 


3$ 


8017 


010512 


012704 


014411 






MOV 


«nS613,R4 


8018 


010516 


004 ,'37 


013232 






JSR 


PCTTOUT 


8019 


010522 


013703 


000546 






MOV 


CSRCMP,R3 


8020 


010526 


004737 


013334 






JSR 


PCOCTPE 


8021 


010532 


012704 


014564 






MOV 


mSG2l ,R4 


8022 


010536 


004737 


013232 






JSR 


PC.TTOUT 


8023 


010542 


013703 


011540 






MOV 


BADUR0,R3 


8024 


010546 


004737 


013334 






JSR 


PC.OCTPE 


8025 


010552 


012704 


014564 






MOV 


*MS621 ,R4 


8026 


010556 


004737 


013232 






JSR 


PCTTOUT 


W27 


010562 


017703 


167704 






MOV 


aRXCSAD,R3 


8028 


010566 


004737 


013334 






JSR 


PC.OCTPE 


8029 


010572 


004737 


011314 




3$: 


JSR 


PC.CK8ITS 


8030 


010576 


012700 


\m77 




4$: 


MOV 


#-1 .RO 


8031 


010602 


000405 








BR 


CSRCKX 


8032 


010604 


005000 






5$: 


CLR 


RO 


8033 


010606 


053700 


000606 






BIS 


SySERR,RO 


8034 


010612 


005037 


000606 






CLR 


SYSERR 


8035 


010616 


050037 


000554 




CSRCKX: 


BIS 


RO.TSTERR 


8036 


010622 


000207 








RTS 


PC 


8037 

















GET RXCS 

MASK OFf BITS DON'T CARE ABOUT 

IF RXCS CONTAINS 

ERRORS. THEN 

SET BAD WORD 

SET COMPARE WORD 

SET MSG TABLE ADDRESS 

SET # BITS TO OFFSET WORD 

SET H BITS TO CHECK 

IF INHIBIT ERROR REPORTS 

NOT SET. THEN 

CALL TEST HEADER CHECK 

SET RXCS MSG HEADER 

PRINT MSG 

IF EXTENDED ERROR REPORTS 

SET. THEN 

SET REG FORMAT MSG 

PRINT MSG 

SET GOOD RXCS 

PRINT GOCN) RXCS 

SET SPACES MSG 

PRINT SPACES 

SET COMPARED RXCS 

PRINT COMPARED RXCS 

SET SPACES MSG 

PRINT MSG 

SET FULL RXCS 

PRINT FULL RXCS 

REPORT BAD BITS 

SET ERR 

8R TO END 

CLEAR ERRORS 

SET ANY SYSTEM ERRORS 

CLEAR SYS ERROR 

SET TEST ERROR FLAG- IF ERRORS 
RETURN 
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8039 










.S8TTL 


RXES 


ERROR CHECK 


8040 










• 






80<>1 
















8CK.? 


010624 


017701 


167644 




ESRCHK: 


nov 


aRXDSAO.Rl 


8(X3 


010630 


043701 


000550 






BIG 


ESRMSK.RI 


8044 


010634 


023701 


000552 






CMP 


E£RCMP,R1 


8045 


010640 


001470 








6EQ 


5$ 


8046 


010642 


010137 


011540 




1$: 


MOV 


Rl .BADURO 


8047 


010646 


013737 


000552 


011536 




MOV 


ESRCMP,CMPWRD 


8048 


010654 


012737 


01 1 574 


011542 




MOV 


fEMSGTB.TABADR 


8049 


010662 


005037 


011534 






CLR 


BITOFF 


8050 


010666 


012737 


000014 


01 1 532 




MOV 


#12. .8ITLIM 


8051 


010674 


032777 


020000 


167602 




BIT 


#SUl3,aSUR 


8052 


010702 


001044 








BNE 


4S 


8053 


010704 


004737 


011042 






CALL 


TSHDCK 


8054 


010710 


012704 


014736 




2$: 


MOV 


#MSG27,R4 


8055 


010714 


004737 


013232 






JSR 


PC, T TOUT 


8056 


010720 


032777 


040000 


167556 




BIT 


#SUl4,aSUR 


8057 


010726 


001430 








BEQ 


3S 


8058 


010730 


012704 


014411 






MOV 


#MSG13,R4 


8059 


010734 


004737 


013232 






JSR 


PCTTOUT 


8060 


010740 


013703 


000552 






MOV 


ESRCMP,R3 


8061 


010744 


004737 


013334 






JSR 


PC.OCTPE 


8062 


010750 


012704 


014564 






MOV 


/mSG21 .R4 


8063 


010754 


004737 


013232 






JSR 


PCTTOUT 


8064 


010760 


013703 


011540 






MOV 


BADURD,R3 


8065 


010764 


004737 


013334 






JSR 


PCOCTPE 


8066 


010770 


012704 


014 564 






MOV 


«nSG21 ,R4 


8067 


010774 


004737 


013232 






JSR 


PCTTOUT 


8068 


011000 


017703 


167470 






MOV 


aRXOBAD.RS 


8069 


011004 


004737 


013334 






JSR 


PCOCTPC 


8070 


011010 


004737 


011314 




3$: 


JSR 


PCCK8ITS 


8071 


011014 


012700 


Mim 




4$: 


MOV 


*-l ,R0 


8072 


011020 


000405 








BR 


ESRCKX 


8073 


011022 


005000 






5$: 


CLR 


RO 


8074 


011024 


053700 


000606 






BIS 


SYSERR.RO 


8075 


011030 


005037 


000606 






CLR 


SySERR 


8076 


011034 


050037 


000554 




ESRCKX: 


BIS 


RO,TSTERR 


8077 


011040 


000207 








RTS 


PC 


8078 










• 







GET RXES 

i^ASK OFF BITS DON'T CARE ABOUT 

IF RXES CONTAINS 

ERRORS, THEN 

SET BAD WORD 

SET COMPARE WORD 

SET MSG TABLE ADR 

SET BIT OFFSET 

SET # BITS TO CHECK 

IF INHIBIT ERROR REPORTS 

NOT SET, THEN 

CALL TEST HEADER CHECK 

SET RXES MSG HEADER 

PRINT MSG 

IF EXTENDED ERROR REPORTS 

SET, THEN 

SET REG FORMAT MSG 

PRINT MSG 

SET GOOD RXES 

PRINT GOOD RXES 

SET SPACES MSG 

PRINT SPACES 

SET COMPARED RXES 

PRINT COMPARED RXCS 

SET SPACES MSG 

PRINT MSG 

SET FULL RXCS 

PRINT FULL RXCS 

REPORT BAD BITS 

SET ERR 

BR TO END 

CLEAR ERRORS 

SET ANY SYSTEM ERRORS 

CLEAR SYSTEM ERRORS 

SET TEST ERROR FLAG. IF ERRORS 

RETURN 
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CZRXfcA.PII 20-SEP-78 10.4.8 TEST HEADER CHECK £ PRINT SEQ 0063 

8080 .S8TTL TEST HEADER CHECK I PRINT 

8081 
8082 



8083 


0110A2 


005737 


000602 




TSHDCK: 


TST 


HDRFLG 


IF HEADER FLAG 


808A 


0110A6 


001030 








BNE 


ENDTSH \ 


NOT SET THEN 


8085 


011050 


005237 


000602 






INC 


HDRFLG 


SET TEST HEADER FLAG 


8086 


01105A 


013704 


000600 






MOV 


TMSGAD R4 


SET TEST MSG # 


8087 


011060 


004737 


01 3232 






JSR 


PCTTOUT 


PRINT TEST MSG 


8088 


01 10M 


004737 


0101 26 






TAI 1 


SSUCOF 


f Al 1 ^FT <SUf> OfFSFT 


8089 


011070 


004737 


011132 






CALL 


PRTSYS 


CALL PRJNT SYSTEM IDENTIFICATION 


8090 


01107A 


032761 


000020 


000622 




BIT 


#DRV1,S0CMD(R1> ! 


IF DRIVE »^ 


8091 


011102 


001404 








BEO 


IS 


SELECTED, THEN 


8092 


oiim 


012737 


000001 


011224 




nov 


#1, DRIVE 


SET DRIVE=#1 


8093 


011112 


000402 










2$ 


-BR TO 2S 


8094 


0111U 


005037 


011224 




IS: 


CLR 


DRIVE 


■SET DRIVEs#0 


8095 


011120 


005037 


011230 




2S: 


CLR 


PTSIDF 


■CLEA« PRINT SIDE FLAG 


8096 


011124 


004737 


011154 






CALL 


PRTDRV 


CALL PRWJ DRIVE 


8097 


011130 


000207 






ENDTSH: 


RTS 


PC 


■RETURN 


8098 
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8100 








.S8TTL 


MODULE 


U.PRTSYS - PRINT SYSTEM IDENTIFICATION 


8101 






























8102 


01113<? 






PRTSYS: 








(1) 


011132 


012704 


016425 




MOV 


*MSG51.R4 


SET MS6-> "SYSTEM:" 


(1) 


01 1 1 36 


004 ^3 r 


0 1 5c5e 




CALL 


TTOUT 


PRINT MSG 


8103 


011142 


013703 


000610 




MOV 


SUC,R3 


SET SYSTEM* FOR PRINT 


8104 


011146 


004737 


013346 




CALL 


OCTP 


PRINT IT! 


8105 


011152 


000207 






RETURN 




RETURN 


8106 






























8107 
















8108 








.S8TTL 


MODULE 


U.PRTDRV - PRINT DRIVE IDENTIFICATION 


8109 






























8110 
















8111 


011154 






PRTDRV: 








(1) 


011154 


012704 


014547 




MOV 


*MSG17.R4 


■SET MSG-> 'DRIVE: " 


(1) 


011160 


004737 


013232 




CALL 


TTOUT 


PRINT MSG 


8112 


011164 


013703 


011224 




MOV 


DRIVE .R3 


GET DRIVE It 


8113 


011170 


004737 


013346 




CALL 


OCTP 


PRINT IT! 


8114 


U 1 1 1 f •» 




Ul 1 cjM 




TC T 


PTSIDF 


•IF SIDE FLAG 


8115 


011200 


001410 






BEO 


XUPTDV 


■SET. THEN 


8116 


011202 


012704 


014556 




MOV 


«MSG20,R4 


•SET MSG-> "SIDE: " 


(1) 


011206 


004737 


013232 




CALL 


TTOUT 


PRINT MSG 


8117 




U 1 J ' U J 


U 1 1 C£0 






SIDE.R3 


;GET SIDE # 


8118 


011216 


004737 


013346 




CALL 


OCTP 


■PRINT IT! 


8119 


011222 


000207 




XUPTDV: 


RETURN 




■RETURN 


8120 






















• 








8121 


011224 


000000 




DRIVE: 


0 


.'DRIVE # TO PRINT 


8122 


011226 


000000 




SIDE: 


0 


.-SIDE # TO PRINT 


8123 


011230 


000000 




PTSIDF: 


0 


.■SIDE PRINT CONTROL FLAG 


8124 






















• 








8125 
















8126 








.S8TTL 


MODULE 


U.PRTKSC - PRIN' 


RACK t SECTOR ERROR I DENT 


8127 






























8128 
















8129 


011232 






PRTKSC: 








(1) 


011232 


012704 


014570 




MOV 


/IWSG22.R4 


;SET MSG-> "CRC ERROR-" 


(1) 


011236 


004737 


013232 




CALL 


TTOUT 


■PRINT MSG 


8130 


011242 


012704 


014506 




MOV 


*nSG15.R4 


■SET MSG-> 'TRACK=" 


(1) 


011246 


004737 


013232 




CALL 


TTOUT 


■PRINT MSG 


8131 


yj 1 IC.JC. 


U 1 o 1 yjj 






Mniy 
nuv 


S0TRK(R1),R3 


;GET TRACK # 


8132 


011256 


00^757 


013346 




CALL 


OCTP 


rPRJNT IT! 


8133 


011262 


012704 


014526 




NOV 


«nSG16,R4 


rSET MSG-> "SECTOR=" 


(1) 


011266 


00473/ 


013232 




CALL 


TTOUT 


; PRINT MSG 


8134 


011272 


016103 


011310 




MOV 


SOSEC (R1}.R3 


•GET SECTOR » 


SI 35 


011276 




013346 




CALL 


OCTP 


;PR1NT IT! 


8136 


011302 


000207 






RETURN 




; RE TURN 


8137 






















SOTRK: 








8138 


011304 


000000 




0 




•SYS#0 TRACK 


8139 


011306 


000000 




S1TRK: 


0 




;SYS*1 TRACK 


8140 


011310 


000000 




SOSEC: 


0 




•SiSMO SECTOR 


8141 


011312 


000000 




SI SEC: 


0 




•SYS#1 SECTOR 


8142 








0 
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8UA 










.S8TTL 


CHECK 


8K5 










• 




81 A6 














8U7 


011314 


005037 


011524 




CKBl rS: 


CLR 


81 A8 


011320 


012737 


012222 


011530 




MOV 


8K9 


011326 


013700 


011536 






MOV 


8150 


01 1 332 


013701 


011540 






MOV 


8151 


011336 


040001 








BIC 


8152 


011340 


005100 








COM 


8153 


011342 


053700 


011540 






BIS 


81 5A 


011346 


005100 








COM 


8155 


01 1 350 


005737 


011534 






TST 


8156 


01 1 354 


001411 








BEQ 


8157 


011356 


005337 


011534 




1$: 


DEC 


8158 


0'. 1 362 


000241 








CLC 


8159 


011364 


006000 








ROR 


8160 


011366 


000241 








CLC 


8161 


011370 


006001 








ROR 


8162 


01 1 372 


005737 


011534 






TST 


8163 


01 1 376 


001367 








6NE 


8164 


011400 


005037 


011526 




2S. 


CLR 


8165 


011404 


032701 


000001 




3$: 


BIT 


8166 


011410 


001420 








BEO 


8167 


011412 


012704 


015210 






MOV 


8168 


011416 


004737 


013232 






JSR 


8169 


011422 


013704 


011526 






MOV 


8170 


011426 


006304 








ASL 


8171 


011430 


063704 


011542 






ADD 


8172 


011434 


011404 








MOV 


81 73 


011436 


004737 


013232 






JSR 


8174 


011442 


01 3704 


011530 






MOV 


8175 


011446 


004737 


013232 






JSR 


8176 


011452 


005237 


01 1 526 




4S: 


INC 


81 77 


011456 


000241 








CLC 


8178 


011460 


006001 








ROR 


8179 


011462 


023737 


011532 


011526 




CMP 


8180 


011470 


101345 








BHI 


8181 


011472 


005037 


011526 






CLR 


8182 


011476 


005737 


01 1 524 






TST 


8183 


01 1 502 


001007 








BNE 


8184 


011504 


005237 


011524 






INC 


8185 


011510 


012737 


012200 


011530 




MOV 


8186 


011516 


010001 








MOV 


8187 


01 1 520 


000731 








BR 


8188 


011522 


000207 






5$: 


RTS 


8189 














8190 


01 1 524 


000000 






BI TPAS : 


0 


8191 


01 1 526 


000000 






BITCNT: 


0 


BIO? 




/WVW4 
Uv\AA/U 








U 


8193 


011532 


000000 






BITLJM: 


0 


8194 


011534 


000000 






BITOFF: 


0 


8195 


011536 


000000 






CMPWRD: 


0 


8196 


011540 


000000 






BADWRD : 


0 


8197 


011542 


000000 






TA8ADR : 


0 


8198 















N 5 
;48 PAGE 69-5 
I NOT SET 

»TS SET I NOT SET 



SEC 0365 



BI TPAS 

*SETMSG.BITMSG 

CMPWRD. RO 

BADURD.R1 

R0,R1 

RO 

BADURD,RO 
RO 

BITOFF 
2$ 

BITOFF 

RO 

R1 

BITOFF 
1$ 

BITCNT 

*1.R1 

4S 

#MSG35.R4 

PC.TTOUT 
BITCNT. R4 
R4 

TABADR.R4 

(R4).R4 

PC.TTOUT 

BITMSG.R4 

PC.TTOUT 

BITCNT 

R1 

BITLIM.BITCNT 
3S 

BITCNT 
BITPAS 
5$ 

BITPAS 

/WSMSG.BITMSG 

RO.RI 

3$ 

PC 



CLEAR BIT PASS COUNT 
SET. SET BITS MSG ADR 
GET COMPARE WORD 
GET BAD WORD 

R1 = BITS THAT SHOULDN'T BE SET 
COMPLIMENT COMPARE WORD 
SET BITS 

RO = BITS THAT SHOULD BE SET 
IF BIT OFFSET 
NOT=0. THEN 

CLEAR CARRY 

CLEAR CARRY 

IF BIT OFFSET 
EQUALS 0. THEN 
CLEAR BIT COUNTER 



SET UP MSG 
PRINT MSG 
GET Bir COUNT 

DOUBLE FOR WORD ADDRESSING 

ADD TABLE ADDRESS 

SET MSG TO PRINT 

PRINT MSG 

SET SET BITS MSG 

PRINT MSG 

INCREMENT BIT/T COUNTER 
CLEAR CARRY BIT 
SHIFT NEXT BIT FOR TEST 
IF ALL BITS SPECIFIED 
DONE. THEN 
RESET BIT COUNT 



SET BITPASS TO GET OUT NEXT PASS 

SET NOT SET BITS MSG ADR 

GET NOT SET BITS FOR TEST 

DO NOT SET BITS 

RETURN 



CZRXEAO RX02 
C7RXEA.P11 



FHTR PROG MACY11 
20-SEP-78 10: 



50(1046) 



20-SEP-78 
CHECK BITS 



B 6 

10:48 PAGE 69-6 
SET t NOT SET 



SEO 0066 



8200 

8201 

8202 

8203 

8204 

8205 

8206 

8207 

8208 

8209 

8210 

8211 

8212 

8213 

8214 

82^5 

8216 

8217 

8218 

8219 

8220 

8221 

8222 

8223 

8224 

8225 

8226 

8227 

8228 

8229 

8230 

8231 

8232 

8233 

8234 

8235 

8236 

8237 

8238 

8239 

8240 

8241 

8242 

8243 

8244 

8245 

8246 

8247 

8248 

8249 

8250 

8251 

8252 

8253 

8254 

8255 



011544 
01 1 546 
011550 
011552 
011554 
011556 
011560 
011562 
011564 
011566 
011570 
011572 

011574 
011576 
011600 
011602 
011604 
011606 
011610 
011612 
011614 
011616 
011620 
011622 

011624 
011634 
011641 
011662 
011665 
011675 
011704 
011713 
011750 
01 1 770 

011777 
012003 
012014 
012026 
012035 
012051 
012066 
012103 
012115 
012125 
012134 
012156 

012200 
012222 



011624 
011634 
011641 
011662 
011665 
011675 
011704 
011713 
01 1 750 
011750 
014202 
011770 

011777 
012003 
012014 
012026 
012035 
012051 
012066 
012103 
012115 
012125 
012134 
012156 

051104 
047504 

111 
051124 

104 

123 
044502 

104 
054105 
051105 

103 
123 
047111 
041501 
104 
104 
042504 
104 
104 
123 
047527 
047516 

041040 
041040 



053111 
042516 
052116 
043 
047105 
0421 1 1 
020124 
052517 
042524 
047522 

041522 
042111 
052111 
046040 
047105 
051511 
042514 
044522 
044522 
0421 1 1 
042122 
020116 

052111 
052111 



020105 
043 
051105 

044523 
020105 
030061 
046102 
042116 
020122 

043 

020105 
042040 
053517 
044523 
020113 
042524 
042526 
042526 
020105 
041440 
054105 

047055 
051455 



CMSGTB: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



CMSG4 

CMS65 

CMSG6 

CMS 

CMSG8 

CMSG9 

CMSG10 

CMSG1 1 

CMSG12 

CMSG12 

«S67 

Cr«Gl5 



EMSGTB: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



EMSGO 

EMSG1 

EMSG2 

EMS 63 

EMSG4 

EMSG5 

EMSG6 

EMS67 

EMSG8 

EMSG9 

EMSGIO 

EMSG11 



CMSG4 

CMSG5 

CMSG6 

CMSG7 

CMSG8 

CMSG9 

CMSG10 

CMSG11 

CMSG12 

CMSG15 

EMSGO 

EMSG1 

EMSG2 

EMS63 

EMSG4 

EMSG5 

EMSG6 

EMSG7 

EMSG8 

EMSG9 

EMSGIO 

EMSG11 



.ASCII 
•ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 



/DRIVE 1#/ 
/DONEM/ 

/INTERRUPT ENABLE*/ 
/JM/ 

/DENSITY*/ 
/SIDE 1#/ 
/BIT 10#/ 

/DOUBLE DENSITY FLOPPY SYSTEAW/ 
/EXTENDED MEMORY*/ 
/ERROR #/ 



/CRCM/ 
/SIDE RDY#/ 
/INIT DONE*/ 
/AC LOW*/ 
/DENSITY ERR*/ 
/DISK DENSITY*/ 
/DELETED DATA*/ 
/DRIVE RDY*/ 
/DRIVE 1*/ 
/SIDE 1*/ 

/WORD CNT OVERFLOW*/ 
/NON EXISTENT MEM.*/ 



NSMSG: 
SETMSG: 



.ASCII 
.ASCII 
.EVEN 



/ BIT-NOT SET ERR */ 
/ BIT-SET ERR */ 











.S8TTL 


ERROR 


SET SL8R00TINE 






0122A0 


017657 


000000 


000402 


ERRSt T.- 


MOV 


a(SP) ,$FATAL 


.•MOVE ERR* TO 


SFATAL MAILBOX 


012246 


012737 


000001 


000400 




MOV 


#1.$MSGTY 


;SET HAIL BOX 


FLAG 


012254 


062716 


000002 






ADD 


*2.(SP) 


.•ADJUST STACK 


RETURN ADDRESS 


012260 


000207 






ERSE TX: 


RTS 


PC 


.•RETURN 





.SBTTL BUS INITIALIZE SUBROUTINE 



166200 
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8257 
8258 
8259 
8260 
8261 
8262 
8263 
8264 
8265 
8266 
8267 
8268 
8269 
8270 
8271 
8272 
8273 
8274 
8275 
8276 
8277 
8278 
8279 
8280 
8281 
8282 
8283 
8284 
8285 
8286 
8287 
8288 
8289 
8290 
8291 
8292 
8293 
8294 



mO 0067 



012262 
012270 
012272 
012276 
012304 
012306 
012310 
012314 
012316 
012324 
012326 
012332 
012336 
012340 
012344 
012346 
012352 
012356 
012360 
012364 
012366 
012372 
012400 



052777 
001407 
004737 
03277? 
001401 
000005 
005737 
001026 
012777 
001405 
012704 
004737 
000407 
005777 
100012 
012704 
004737 
011603 
062703 
011303 
004737 
012737 
000207 



041000 

011042 
010000 



012402 

001000 

014752 
013232 

166140 

015223 
013232 

000014 

013346 
000001 



012402 000000 





D r T 




I c 1 nno 

Ir LUUr 




□tu 
















BIT 


#SUl2.aSUR 


IF BUS INITIALIZE 




BEO 


IS 


BIT SET, THEN 




RESET 




INITIALIZE BUS 


1$: 


TST 


-PPRT i 


•IF LOOP MESSAGE 




BNE 


5S 


NOT WIN TED. THEN 


2$: 


BIT 


#SW09,aSUR 


•IF LOOP ON 




BEQ 


3$ 


•ERROR, THEN 




MOV 


/mSG28,R4 


•SET LOOP ON ERROR MSG 




CALL 


TTOUT 


•PRINT MSG 




BR 


4$ 




3$: 


TST 


asuR 


•If HALT Of ERROR 




BPL 


5S 


•IS SET, THEN 




MOV 


#MSG37,R4 


■SET HALT ON ERROR MSG 




CALL 


TTOUT 


rPRINT MSG 


4$: 


MOV 


(SP).R3 


:GET RETURN ADR 




ADD 


#14. R3 


•ADJ. ADDRESS FOR ERR NO. 




MOV 


(R3).R3 


•GET ERR NO. 




CALL 


OC TP 


; PRINT ERR » 


5S: 


MOV 


#1, LPPRT 


;SET LOOP MSG PRINTED FLAG 


BSINTX: 


RTS 


PC 


; RE TURN 


LPPRT: 


0 




:LOOP FLAG 



CZRXEAO RX02 
CZRXEA.PII 



8?% 
8297 
8298 
8299 
8500 
8301 
8502 
8505 
850A 
8305 
8506 
8307 
8508 
8509 
8510 
8511 
8312 
8313 
8314 
8315 
8316 
(1) 
8317 
8318 
8319 
8520 
8321 
8322 
8523 



FMTR PROG 
20-SEP-78 



lAcrii 

TQ:<.8 



30(1046) 



20-SEP-78 10 
RX02 INTERRUPT 



D 6 
:48 PAGE 69-8 
HANDLER MO 



SFQ 0068 



.S8TTL RX02 INTERRUPT HANDLER #0 



012404 


005257 


000616 




RXINTO: 


INC 


SORDV 


INCREMENT SrS #0 READY 


012410 


000002 








RTJ 


.•RETURN TO CALLER 










• 

.S8TTL 


RX02 


INTERRUPT HANDLER #1 


012412 


005257 


000620 




• 

RXJNT1 : 


JNC 


S1RDY 


INCREMENT SYS *1 READY 


012416 


000002 








RTJ 


.•RETURN TO CALLER 










.S8TTL 


T T W 

TTY 


INTERRUPT HANDLER 




"irt 

01 2420 


004737 


013156 




• ~~ 

TTINT: 


CALL 


TTIN 


•CALL TTV INPUT ROUTINE 


012424 


113737 


00052O 


000632 




M0V8 


TI8.TTJTF6 


•SAVE TTY INPUT CHARACTER 


012432 


022737 


000005 


000652 




CMP 


#3.TTJTFG 


•IF TTY INTERRUPT 


012440 


001007 








BNE 


1$ 


•WAS CTRL C, THEN 


012442 


012704 


014715 






MOV 


WS625.R4 


•SET MS6-> ""C" 


012446 


004737 


015232 






CALL 


TTOUT 


•PRINT MSG 


012452 


005000 








CLR 


RO 




012454 


000157 


001000 






JMP 


START 


•JUMP TO START OVER ' 


012460 


052777 


000100 


165612 


1$: 


BIS 


«8IT6.aTKS 


;SET TTY INTERRUPT BfT 


012466 


005277 


165606 






JNC 


STKS 


;SET TTY GO BIT 


012472 


000002 








RTJ 







t 



E 6 
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CZRXEA.PH 20-SEP-78 10:48 BUS ADDRESS TRAP HANDLER 



SEQ 0069 



MPS 




























\J\J JC J ' 


000 S 70 




012SO0 


052777 


020000 






001020 






v 1 C J 1 v 


OOS757 


000602 




012514 


noiofv> 






012516 


V/v Jf 






012522 








012526 


004757 


01 525? 




012552 


012704 


014701 


8357 


012536 




015232 


8358 


012542 


010105 




8559 


012544 


004757 

f J f 


01 5546 


8340 


012550 


004737 


012570 


8341 


012554 


000055 




8342 


012556 


005777 

WJf f ' 


165722 


8343 


012562 


100001 




8344 


012564 


000000 

www 




8345 


012566 


000002 

w wvc 




8346 








8347 








8348 








8349 








8350 








8351 


012570 


132737 


000001 

www 1 


8352 


012576 


001407 




8353 


012600 


01 7637 


000000 

V W W V 


8354 


012606 


012737 


000001 


8355 


0 1 261 4 


000777 




8356 


012616 


062716 


000002 

Wv wc 


8357 


012622 


000207 

WVC V ' 




8358 








8359 








8360 








8361 








8362 








8363 


012624 


012737 


000116 


8364 


012632 


012737 


000131 


8365 


012640 


004737 


013036 


8366 


012644 


000207 




8367 








8368 


012646 


000000 




8369 


012650 


000000 




8370 









.S8TTL 

TRAP: 



TRAP1 : 
TRAP2: 

TRAPX: 
.S8TTL 
AFTER: 



IS: 
2S: 



.S8TTL 
GETANS: 



BUS ADDRESS TRAP HANDLER 





BTRPFL 


- ^FT Rll^ TRAP Fl Afi 




#20000 asuR 


■^FF IF ^HOllI D PRINT FRROR^ 




TRAP2 


- IF NOT Aft 

'SF^ IF DONE HEADER 


TST 


HDRFl G 




TRAP1 


■ I F SO BR 


INC 


HDRFL G 


■ELSE SET HEADER FLAG 


MOV 


TMSGAD R4 




JSR 


PC.TTOUT 


.•PRINT HEADER 


MOV 


*MSG24.R4 


JSR 


PC.TTOUT 


; PRINT ERROR 


MOV 


R1.R3 


JSR 


PC.OCTP 


.-PRINT ADDRESS OF TRAP 


JSR 


PC.APTER 




.WORD 


•55 


;8US TRAP ERROR 


TST 


SSWR 


;SEE IF HALT ON ERROR 


BPL 


TRAPX 


;IF NOT. BR 


HALT 






RTJ 




.RETURN FROM INTERRUPT 



APT ERROR HANDLER 



BI T8 


*APTENV.SENV 


•IF IN 


BEQ 


2S 


APT MODE. THEN 


MOV 


a(SP).$FATAL 


•MOVE ERR # TO SFATAL MAILBOX 


MOV 


/ri.SMSGTY 


■SET MAIL BOX FLAG 


BR 


1$ 


•APT ERROR LOOP 


ADD 


iir2.{SP) 




RTS 


PC 


•RETURN 



MODULE U.OPRANS - SETUP I GET OPERATOR ANSWERS 



MOV f'N.ANSDEF 

MOV *'Y.ANSCHG 

CALL TTAR 
RETURN 



;SET DEFAULT ANSWER- NO" 
;SET CHANGE ANSWER-"YES" 
;6ET ANSWER-CALL TTY ANSWER 
.•RETURN 



ANSDEF : 
ANSCH6: 



0 
0 



.DEFAULT ANSWER BUFFER 
.CHANGE ANSWER BUFFER 
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8372 


















8373 








.SBTTL 


TTY ENTRY SUBROUTINE 




8374 


































8375 


















8376 










•THIS SUBROUTINE IS USED BY THE TEST CONDITION ENTRY ROUTINE TO READ 


8377 










■THE RESPONSE 


ENTERED AT THE TTY 


AND CHECK THEM FOR LEGALITY AND LIMITS 


8378 










•ALL RESPONSE 


MUST BE TYPED IN OCTAL (0 - 7) AND MUST FALL WITHIN THE 


8379 










LIMITS 


SET BY 


THE CALLING ROUTINE. IF AN ENTRY IS ILLEGAL OR OUTSIDE 


8380 










•THE LIMITS. A 


QUESTION MARK (?) 


IS TYPED AND THE RESPONSE MAY BE RE- 


8381 










■ENTERED. ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND MAY BE TERMIN- 


8382 










ATED AT LESS 


THAN SIX BY TYPING 


A CARRIAGE RETURN. 


8385 


















8384 


012652 


005037 


000562 


TTR: 


CLR 


TEMPI 


CLEAR FIRST CHARACTER FLAG 


8385 


012656 


005000 








CLR 


RO 




8386 


012660 


004737 


013156 


TTRO: 


JSR 


PC.TTIN 


GO READ CHARACTER 


8387 


012664 


122737 


000015 


000526 




CW« 


#15. TIB 


SEE IF CR 


8388 


012672 


001005 








BNE 


TTRl 


IF NOT. BR 


8389 


012674 


005737 


000562 






TST 


TEMPI 


SEE IF FIRST CHARACTER 


8390 


012700 


001446 








BEO 


TTR5 


IF SO, BR 


8391 


012702 


000137 


012774 








TTR2 


ELSE, GO LOAD VALUE 


8392 


012706 


122737 


000060 


000526 TTRl: 


CMP8 


#60. TIB 


SEE IF CHAR IS LESS THAN 0 


8393 


312714 


101402 








BLOS 


TTR1A 


IF NOT, BR 


8394 


012716 


000137 


013020 






JMP 


TINER 


ELSE, GO TO ERROR 


8395 


012722 


122737 


000070 


000526 TTR1A: 


CMP8 


#70.TI8 


•SEE IF CHAR IS GREATER THAN 7 


8396 


012730 


101002 








BHI 


TTR18 


■IF NOT, BR 


8397 


012732 


000137 


013020 






JflP 


TINER 


•ELSE. 60 TO ERROR 


8398 


012736 


005237 


000562 


TTR18: 


inll. 


TEMPI 


•SET FIRST CHARACTER FLAG 


8399 


012742 


000241 








CLC 






8400 


012744 


006100 








ROL 


RO 




8401 


012746 


000241 








CIC 






8402 


012750 


006100 








ROL 


RO .-SHIFT 3 LEFT 


8403 


012752 


000241 








CLC 






8404 


012754 


006100 








ROL 


RO 




8405 


012756 


042737 


1 77770 


000526 




BIC 


#177770. TIB 


;STR1P ASCII 


8406 


012764 


053700 


000526 






BIS 


TI8.ro 


■LOAD CHARACTER 


8407 


012770 


005301 








DEC 


Rl 


;SEE IF DONE 


8408 


012772 


001332 








BNE 


TTRO 


. 2 f NOT BR 


8409 


ViCf f *» 


\JC\AMC 




TTR2: 


CMP 


R0,R2 


•SEE IF 'exceeded MAXIMUM LIMIT 


8410 


012776 


101402 








BLOS 


TTR3 


■IF NOT. BR 


8411 


013000 


000137 


01 3020 






JMP 


TINER 


;ELSE. GO TO ERROR 


8412 


013004 


020300 




TTR3: 


CMP 


R3.R0 


•SEE IF BELOW MJNIMLM LIMIT 


8413 


V 1 .xmo 










BLOS 


TTR4 


;IF NOT, BR 


8414 


013010 


000137 


013020 






JMP 


TINER 


;£LSE. 60 TO ERROR 


8415 


013014 


010015 




TTR4: 


MOV 


R0.{R5) 


;LOAD VALUE 


8416 


013016 


000207 




TTR5: 


RTS 


PC 


■EXIT 


8417 


































8418 


















8419 


















8420 










. SBTTL 


TTY ENTRY ERROR SUBROUTINE 


8421 


































8422 


















8423 


013020 


012704 


014202 


TINER: 


MOV 


#MSG7.R4 




8424 


013024 


004737 


013232 






JSR 


PC.TTOUT 


•PRINT? 


8425 


015030 




000020 






SLB 


#20. (SP) 


•RESET SP TO START OF VALUE ROUTINE 


8426 


013034 


0QO207 








RTS 


PC 


•REDO VALUE ENTRY 


8427 
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S8TTL TTY ANSWER ENTRY SUBROUTINE 



SEO 0071 



84?8 










8429 










8430 










8431 










8432 










8433 










8434 










8435 










8436 










8437 


013036 


105037 


000530 




8438 


013042 


005000 






8439 


01 3044 


004737 


013156 




8440 


013050 


122737 


000032 


000526 


8441 


013056 


001003 






8442 


013060 


005237 


000576 




8443 


013064 


000433 






8444 


013066 


122737 


000015 


000526 


8445 


013074 


001004 






8446 


013076 


113737 


012646 


000530 


8447 


013104 


000423 






8448 


013106 


042737 


000040 


000526 


8449 


013114 


123737 


012650 


000526 


8450 


013122 


001411 






8451 


013124 


123737 


012646 


000526 


8452 


013132 


001405 






8453 


013134 


012704 


014202 




8454 


013140 


004737 


013232 




8455 


013144 


000734 






8456 


013146 


113737 


000526 


000530 


8457 


013154 


000207 






8458 










8459 










8460 










8461 










8462 










8463 


013156 


005077 


165116 




8464 


013162 


005037 


000526 




8465 


013166 


005277 


165106 




8466 


013172 


105777 


165102 




8467 


013176 


100375 






8468 


013200 


017737 


165076 


000526 


8469 


013206 


105777 


165072 




8470 


013212 


100375 






8471 


013214 


113777 


000526 


165064 


8472 


013222 


042737 


000200 


000526 


8473 


013230 


000207 






8474 











THIS SUBROUTINE IS USED BY THE TEST CONDITION ENTRY ROUTINE TO 

READ THE RESPONSE ENTERED AT THE TTY AND CHECK THEM FOR LEGALITY, 

ALL RESPONSES MUST BE EQUAL TO RETURN THE DEFAULT ANSWER, CHANGED ANSWER 

OR A CARRIAGE RETURN, IF ENTRY IS ILLEGAL A QUESTION MARK IS TYPED AND 

THE RESPONSE MAY BE REENTERED. 

TTAR: 



TTAR1 



TTAR2; 



TTAR3: 
XTTAR: 



CLRB 


ANSWER 


CLEAR ANSWER 


CLR 


RO 




CALL 


TTIN 


GO READ A CHARACTER 
IF "*L" 


CMPB 


#32. TIB 


BNE 


TTAR1 


THEN 


INC 


STFLG 


SET START PROGRAM 


BR 


XTTAR 


■BR TO END 
■IF "CR" 


CMPB 


#15, TIB 


BNE 


TTAR2 


•THEN 


novB 


ANSDEF .ANSWER 


■SET DEFAULT ANSWER 


BR 


XTTAR 


■BR TO END 


BIC 


#40, TIB 


•CLEAR LOWER CASE BIT 


CW« 


ANSCHG,TIB 


•IF ANSWER NOT OK WITH 


BEQ 


TTAR3 


•THEN 




ANSDEF, TIB 


;IF ASNWER NOT OK WITH 


BEQ 


TTAR3 


;THEN 


MOV 


#MSG7,R4 


; SETUP MSG "?" 


CALL 


TTOUT 


;PRINT MSG 


BR 


TTAR 


.START OVER 


M0V8 


TIB, ANSWER 


;SAVE ANSWER 


RETURN 




; RE TURN 



.S8TTL TTY READ SUBROUTINE 



TTIN: 



TTINl 



TTIN2: 



CLR 

CLR 

INC 

TST8 

BPL 

MOV 

TSTB 

BPL 

MOVB 

BIC 

RTS 



aTKS 

TIB 

aTKS 

aTKS 

TTIN1 

aTKS, TIB 

aTPS 

TTIN2 

Tie.aiPB 

#200. TIB 

PC 



.•STRIP OFF TOP BIT OF BYTE 
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.S8TTL TTY ASCII OUTPUT SUBROUTINE 

8^,77 
8478 



8479 


013252 


112437 


000524 




TTOUT: 


M0V8 


(R4)*,T0B 




8480 


013236 


122737 


000043 


000524 




C«P8 


*43.T0B 


.IF T08= 


8481 


01 3244 


001432 








BEO 


TCEX 


8482 


015246 


122737 


000045 


000524 




CMP6 


#45,TOB 


;IF T08= "I" 


8483 


01 3254 


001403 








BEQ 


TCRLF 




8484 


013256 


004 ■'37 


013700 






JSR 


PC. TOG 




8485 


013262 


000763 








BR 


TTOUT 




8486 


013264 


1 12737 


00001 5 


000524 


TCRLF : 


M0V8 


*15.T0B 


;SET T08= CR 


8487 


01 3272 


004737 


013700 






JSR 


PC. TOG 




8488 


013276 


012703 


000001 






MOV 


*1.R3 




8489 


013302 


005037 


000524 




TCRLFA: 


CLR 


Toe 




8490 


013306 


004737 


013700 






JSR 


PC. TOG 




8491 


013312 


005303 








DEC 


R3 




8492 


013314 


001372 








BNE 


TCRLFA 


;D0 FILLERS 


8493 


013316 


112737 


000012 


000524 




novB 


*12.T0e 


;SET T08= "IF" 


8494 


013324 


004737 


013700 






JSR 


PC. TOG 


8495 


013330 


000740 








BR 


TTOUT 




8496 


013332 


000207 






TCEX: 


RTS 


PC 


.•RETURN 



8497 
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8499 










.S8TTL 


OCTAL 


OUTPUi bUBROUTINc 




8500 


























• 








8501 


















8502 


013334 


012737 


OOOOOi 


AI TC 7A 

01 3570 


OC TPE : 


MOV 


#1 ,OFL 




OCA7 

8505 


013342 


010304 








MOV 


R3,R4 




ocrv/ 
8504 


013544 


000410 








oR 


AT TDA 

OC T"0 




8505 


01 5546 


AAC A17 

00503 r 


A 1 7 C 7A 

0135/0 




A/* TD . 

OCTP: 


CLR 


AC 1 


n LAO CI AP C AO 1 CAf\'lkl^ 7CDA 

CLcAn FLAG FOR LcADiNG ZERO 


8506 


013352 


AI ATA/ 

010304 






OC TPt 1 : 


nov 


R3.R4 


SEE IF NU^BER IS ZERO 


850/ 


Ai Tie/ 

013554 


AA1 AA/ 
001004 








Que 


OCTPO 


IF NOT ZERO, BH 


8506 


A< TIC^ 

01 3556 


AAy 7T7 


AI 7CCA 

01 3550 








PC.OCTPGI 


ELSE PRINT ZERO 


8509 


01 350C 


AAAi 77 

00015/ 


AI 7C1 0 

0133V 








0CTP3 


SPACE AND EXIT 


8510 


Al tXA^ 

015366 


A'107A/ 

05<:/04 


1 A/\AAA 
100000 




nr TCA ■ 
OC IrO: 


n I T 


#1 00000, R4 


SEE IF MSG=1 


851 1 


0153/*: 


AA1 / AA 

001406 








DC A 


0CTP1 


IF NOT. BR 


83 1 c 


U 1 33f *• 


A1 "yyisi 
01 cf U*» 


AAAAA 1 
OOUOU 1 






MAA\/ 

nuv 


#1 .R4 




851 3 


A1 Ty AA 

01 3400 


AA/ 777 


A1 7C^A 

01 35<:0 






1 CD 


PC.OCTPG .-PRINT 1 


8 J 


AI Tj A/. 

01 3404 


AAAI 17 
OOul 3/ 


AI 7/.1 A 

01 3«» 1 6 








0CTP2 




8 J 1 J 


A1 7/ 1 A 

01 34 10 


AACA/V 
00300*» 






AT TD1 . 


rt D 


R4 




B<:1 A 
6 J ID 


A1 1Z.1 0 


AA/ 777 
00*»/3/ 


0 1 33eO 






1 CD 

Jin 


PC.OCTPG .-PRINT 0 


8 J 1 f 


A1 1/ 1 A 

0 1 3*> lo 


A1 A7A/ 

U1030S 






r\r TDD - 
OL 1 : 


iAAV/ 

nuv 


R3.R4 




BC1 CI 
8j18 


A1 TZOA 
013*«c0 


rvrw AAy 
0O60O*» 








DAD 


R4 




8 J I V 


m 1/ DO 
0 1 34^£ 


0060UH 








DAD 


R4 




8jcU 


A1 1/ 5/ 

01 3*»c4 


0O6U0H 








DAD 


R4 




OJC 1 


0 1 3*»CO 


AAA AAy. 
OU60U*» 








DAD 


R4 .-POSITION DIGIT 


8jcc 


0 1 3*»3U 


AAATnA 
00U30*» 










R4 






f^^ 

0 13<t3c 


A/U.777 
0O«t/3/ 


U 1 33£0 






1 CD 
Jon 


PC.OCTPG .-PRINT DIGIT 2 




013436 


0 IU3U*» 








MAU 

nuv 


R3,R4 






0 1 3*i*»U 










one 

HUH 


R4 




8J£0 


0 I3*»*»c 


UUU3U'» 










R4 




BC07 
OJCf 


A1 "XJ 1 1 
0 1 3^HH 


A/V 777 
00*1/3/ 


A1 7^ DA 
0 1 33^6 






1 CD 

Jon 


PC.OCTPG .-PRINT DIGIT 3 


BC?B 


A1 iz^n 
0 1 3*»30 


AI A7n/ 
0103U*» 








nuv 


R3.R4 




BC^ 


0 1 3hjc 


n/v.1 nz. 








DAI 

nUL 


R4 




85jO 


A1 11 C/ 

01 3*»3h 


AAAI A/ 

U0610*» 








DAI 

nOL 


R4 




BC71 

OJJ 1 


A1 T/.CA 

013*t 36 


AAn7A/. 
U0030*» 










R4 




B«;7D 


A-l l/.<tA 

0 l3*iD0 


/W 777 
OOS / 3/ 


AI 7^3A 






1 CO 

Jan 


PC.OCTPG 


.-PRINT DIGIT 4 


BCTT 
8333 


A1 11 AA 
0 1 3^0h 


AI A7n/ 
0 1 03U*» 








nuv 


R3.R4 




8j3*» 


U 1 3*»o6 


A/\AAA/. 








DAD 

nUK 


R4 




8j3j 


0 l3*»/0 


AAAAA/ 
00600*» 








DAD 
nUn 


R4 




83 30 


AI TZ.73 

0134r£ 


AAAA/V 

006004 








DAD 

KON 


R4 




833f 






U 133c ^ 






Jon 


PC.OCTPG 


.-PRINT DIGIT 5 


8538 


013500 


005237 


013- vy 






INC 


OFL 


.•SET FLAG TO PRINT LSD 


8539 


013504 


010304 








MOV 


R3.R4 


8540 


013506 


004737 


0135c , 






JSR 


PC.OCTPG 


;PRINT DIGIT 6 


8541 


013512 


012737 


000240 


000524 


0CTP3: 


MOV 


#240, Toe 


.-PRINT SPACE 


8542 


013520 


004737 


013700 






JSR 


PC. TOG 


.-EXIT 


8543 


013524 


000207 






OCTPX: 


RTS 


PC 


.-EXIT 


8544 










* 









CZRXEAO RX02 
CZRXEA.P11 



FMTR PROG 
20-SEP-78 



flACyil 30(1046) 20-SEP-78 10:48 PAGE 
10:48 OCTAL OUTPUT SUBROUTINE 



8546 

8547 

8548 

8549 

8550 

8551 

8552 

8553 

8554 

8555 

8556 

8557 

8558 

8559 

8560 



015526 
013532 
013534 
013540 
013542 
01 3544 
013550 
013554 
013560 
013564 
013566 



042704 
001004 
005737 
001001 
000207 
005237 
052704 
010437 
004737 
010304 
000207 



013570 000000 



J 6 
69-14 



1 7777Q 
013570 



013570 
000260 
000524 
01 3700 



OCTPG: 



OCTPGO: 
0CTPG1: 



OCTPGX: 



BIG 
BNE 
TST 
BNE 
RTS 
INC 
BIS 
MOV 
JSR 
MOV 
RTS 



OFL: 



#1 77770. R4 

OCTPGO 

OFL 

OCTPGO 

PC 

OFL 

#260. R4 
R4.T0e 
PC, TOG 
R3.R4 
PC 



.•FIRST CHAR FLAG 
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8562 










.S8TTL 


DATA 


CHARACTER OUTPUT 


SUBROUTINE 


8563 


































8564 


















8565 


















8566 


013572 


vX)5037 


000524 




DOUT: 


CLR 


TOB 




8567 


013576 


012704 


000010 






nov 


*10.R4 


;SET NUMBER TO PRINT 


8568 


013602 


110337 


000524 






MOVB 


R3.T08 


8569 


013606 


105777 


164472 




0OUT1 : 


TSTB 


aTPS 




8570 


013612 


100375 








BPL 


D0UT1 




8571 


013614 


132737 


000200 


000524 




BITB 


#200. TOB 




8572 


013622 


001404 








BEQ 


D0UT2 




8573 


01 j6c4 


Q\cff f 


000061 


IOh434 




MOV 


*06 1 ,STrB 




8574 


013632 


000403 








BR 


D0UT3 




8575 


013634 


012777 


000060 


164444 


D0UT2: 


MOV 


*060,aTPB 




8576 


013642 


006137 


000524 




D0UT3: 


ROL 


TOB 




8577 


013646 


005304 








DEC 


R4 




8578 


013650 


001356 








BNE 


D0UT1 




8579 


013652 


000207 








RTS 


PC 




8580 


























DOUTD: 








8581 


013654 


013703 


000566 




nov 


TEMP3.R3 




8582 


013660 


000303 








SWAB 


R3 




8583 


Ul jooc 




r>i T^7D 
Ul jj'c 






JSR 


PC. DOUT 




8584 


013666 


013703 


000566 






MOV 


TEMP3.R3 




8585 


013672 


004737 


013572 






JSR 


PC. DOUT 




8586 


013676 


000207 








RTS 


PC 




8587 


































8588 


















8589 










.S8TTL 


TTY OUTPUT 




8590 


























TOG: 








8591 


013700 


132737 


000040 


000421 


BITB 


*APTCSP.SENVM 


;SEE IF CONSOLE SUPPRESS MODE 


8592 


013706 


001014 








BNE 


TEX 


;If SO, BR 


8593 


013710 


105777 


164370 






TSTB 


8TPS 




8594 


013714 


100371 








BPL 


TOG 




8595 


013716 


113777 


000524 


164362 




MOVB 


Toe.aTPB 




8596 


013724 


005737 


000532 






TST 


TTUAIT 


;IS TTY WAIT FLAG SET 


8597 


013730 


001403 








BEO 


TEX 


.-THEN 


8598 


013732 


105777 


164346 




1$: 


TSTB 


aTPS 


.•WAIT FOR CHARTER 


8599 


013736 


100375 








BPL 


It 


;T0 BE PRINTED 


8600 


013740 


000207 






TEX: 


RTS 


PC 




8601 
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SEQ 0076 



8603 

8604 

8605 

8606 

8607 

8608 

8609 

8610 

8611 

8612 

8613 

8614 

8615 

8616 

8617 

8618 

8619 

8620 

8621 

8622 

8623 

8624 

8625 

8626 

8627 

8628 

8629 

8630 

8631 

8632 

8633 

8634 

8635 

8636 

8637 

8638 

8639 

8640 

8641 

8642 

8643 

8644 

8645 

8646 

8647 

8648 

8649 

8650 

8651 

8652 

8653 

8654 

8655 

8656 

8657 

8658 



.S8TTL MESSAGE TABLE 



013742 

014002 

014040 

014072 

014127 

014164 

014202 

014206 

014246 

014272 

014326 

014367 

014411 

014452 

014506 

014526 

014547 

014556 

014564 

014570 

014610 

014701 

014715 

014722 

014736 

014752 

014776 

015031 

015055 

015077 

015121 

015140 

015210 

015217 

015223 

015244 

015300 

015404 

015510 

015615 

015702 

015723 

015726 

015752 

016045 

016125 

016206 

016271 

016357 

016422 

016425 

016436 

016475 



020045 
051445 
022445 
020045 
045 
042445 
037440 
047045 
022445 
020045 
052445 
045 
045 
022445 
020040 
020040 
104 
044523 
020040 
020045 
020045 
045 
045 
020045 
020045 
020040 
042445 
045 
045 
045 
040 
026445 
020045 
045 
040 
042445 
052045 
047445 
047445 
045 
052055 
045 
044045 
004445 
045 
045 
043045 
045 
045 
004445 
045 
047045 
040 



020040 
0431 1 7 
055103 
020040 
020040 
042116 
021440 
020117 
047506 
044440 
044516 
042101 
020040 
047506 
051 124 
042523 
044522 
042'>04 
021440 
051103 
044124 
052502 
041536 
054122 
054122 
046055 
051122 
042040 
052040 
020040 
026440 
051076 
020040 
037040 
026440 
052116 
044510 
020116 
042520 
046101 
046511 
021440 
046105 
047111 
042523 
042526 
047514 
051511 
047516 
Oil 
054523 
020117 
037055 



054122 
053524 
054122 
020040 
020040 
047440 

054523 
046522 
052116 
020124 
051104 
054105 
046522 
041501 
052103 
042526 
021472 

020103 
051511 
020123 
021440 
051503 
051505 
047517 
051117 
047117 
020122 
020040 
020076 
046505 
020055 
043 
040510 
051105 
020123 
047502 
040522 
020114 
020105 

037520 
052111 
020124 
044522 
050120 
040440 
051440 

052123 
047504 
051104 



MSG1 

MSG2 

MSG3 

MSG4 

HSG5 

MSG6 

HS67 

MSG8 

MS69 

MSGIO 

MSG11 

MSG12 

MSG13 

nSGK 

MSG15 

MSG16 

MSG17 

MSG20 

MSG21 

MSG22 

MSG23 

MSG24 

MSG25 

MSG26 

MSG27 

MS628 

nS629 

MS630 

MSG31 

MSG32 

MSG33 

MSG34 

MSG35 

nSG36 

MSG37 

MSG38 

MSG39 

nSG40 



MS641 
nSG42 
nSG43 
MSG44 
MS645 
nSG46 
MSG47 
nSG48 
MSG49 
MSG50 
nSG51 
MS652 
MSG53 



.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
-ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 



n RXCS RXD8 CMDX #/ 

/ISOFTUARE SWITCH REG (OCT) = #/ 
/XXC2RXEA0 RX02 FMTR PR0GX#/ 
/X 9XCS ADDRESS (OCT) = #/ 

/X VECTOR (OCT) = */ 

/XEND ?F PASS #/ 
/ ? 

/XNO SYSTEM AVAILABLE TO FORMAT */ 

/XXFORMAT COMPLETED #/ 

/X INTERRUPT DID NOT OCCUR */ 

/XUNir NOT RESPONDING TO ADDRESS »/ 

/XADDRESSING TEST #/ 

/X EXPECT RCVD ACTUALX */ 

/XXFORMAT DONE ON FOLLOWING »/ 

/ TRACK (OCT) =M/ 

/ SECTOR (OCT) =#/ 

/DRIVE:*/ 

/SIDE:*/ 

/ 0/ 

/% CRC ERROR -> #/ 

/X THIS SYSTEM NOT CAPABLE OF DOUBLE DENSITY OPERATIONS */ 
/X8US TRAP: M/ 
/X*C */ 

/X RXCS ERR #/ 

/X RXES ERR #/ 

/ -LOOPING ON ERR: #/ 

/XERROR BIT SET AFTER INIT */ 

/X DONE BIT NOT SET 0/ 

/X TR BIT NOT SET 0/ 

/% = */ 

/ -> DROPPED 0/ 

/X->REMOVE XXDP MEDIA FROM THIS SYSTEM..'*/ 
/X - 0/ 
/X >#/ 

/ -HALT ON ERR: 0/ 

/XENTER CONDITIONS IN OCTAL 0/ 

/XTHIS PROGRAM FORMATS DISKETTES TO SINGLE OR DOUBLE (DEFAULT) DENSITY/ 
/XON BOTH DRIVES OF A FLOPPY DISK SUBSYSTEM CAPABLE OF DOUBLE DENSITY/ 
/XOPERATIONS. A CRC VERIFY IS PERFORMED ON TRACKS: 0 ft 76 (DEFAULT) OR/ 
/lALL TRACKS OF THE FORMATTED DISKETTE, IF SELECTED. X#/ 
/-TIME OUT ERROR 0/ 
/% 0/ 

/XHELP? (Y OR N) N 0/ 

/% INITIALIZE NOT DONE - RUN DIAGNOSTICS UNLESS OBVIOUS ERR*/ 

/XSET DISKETTE TO SINGLE DENSITY? (Y OR N) N */ 

/XVERIFY DISKETTE CRC (ALL TRACKS)? (Y OR N) N */ 

/XFLOPPY DISK SYSTEM: 0 ADDRESS CHANGE? (Y OR N) N 0/ 

/XIS ANOTHER FLOPPY DISK SYSTEM AVAILABLE? (Y OR N) N */ 

/XNO SYSTEM AVAILABLE TO FORMATTER */ 

/X / 

/XSYSTEM:*/ 

/XNO DONE BIT AFTER INITIALIZE */ 
/ ->DROPPED FROM FORMATTERX*/ 
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n 6 

PAGE 69-17 



SEO 0077 



8659 


016530 


004445 


8660 
866T 


01661 3 


045 


016703 


045 


8662 


016766 


051045 


8663 


01 7065 


ft/ c 

045 


8664 


017117 


045 


d. C 

8665 


017221 


045 


8666 






8667 






8668 






8669 




■ 


8670 






8671 


/M 7TC / 

01 7254 


022445 


obfc 


A1 7T1 1 


04!) 


86/^ 3 




04:244!> 


OOf H 


m 7/ 1 7 


A/ C 

U43 






A1 7/ y iL 

U 1 f 44o 


o6r O 






OiL77 
OO/^ f 






OO/O 






0^70 






tJooU 






ooo 1 


U 1 f *»*»o 




ooo^ 


A 1 7/ / 7 


AAA 
UUU 


cSOoj 


r\ 1 7/. 


UUU 


QiLO/. 


U 1 r*» J 1 


UUU 


ooo> 


rt1 7/ C5 


AAA 

UUU 


oooo 


n 1 7Z. ^ 7 


AAf\ 
UUU 




U 1 


l/UU 


OOOO 


r\i 7/ 


AAA 
UUU 


OOOV 






OOtU 






OOV 1 












OOV5 












8695 






8696 


017456 


000000 


8697 




017660 


8698 


017660 


000000 


8699 






8700 






8701 




000001 



041501 
042011 
OA 7504 
046505 
026455 
047506 
052123 



037055 
026445 
037055 
026445 



046040 
044522 
054440 
053117 
020076 
046522 
051101 



042522 
0j1476 
042522 
037055 



MSG54 
MSG55 
HSG56 
MSG57 
MSG58 
MSG59 



MSGCD3 
MSGCD4 
^SGCD5 
MSGLP: 



.S8TTL 
XER: 



PATCH: 
LAS TAD: 

• END 



.ASCII /X AC LOW ERROR - IS FLOPPY DISK SYSTEM POWERED UP?#/ 

.ASCII /X DRIVE NOT READY - IS DISKETTE IN DRIVE t DOOR CLOSED?*/ 

.ASCII /XDO YOU WANT TO FORMAT MORE DISKETTES? (Y OR N) N »/ 

.ASCII /XREMOVE FORMATTED DISKETTES t INSERT DISKETTES TO BE FORMATTED*/ 

ASCII /X— -> TYPE "CR' ' WHEN READY*/ 

!aSCII /XfORMATTER DONE-RESTART MONITOR OR UPDATE PROGRAM~>TYPE CTRL C TO/ 

.ASCII /XSTART THIS PROGRAM AGAIN */ 



.S8TTL TEST HEADERS 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
• EVEN 



/XX->READ SECTOR COMMAND ERR */ 
/XX->SET DENSITY COMMAND ERR */ 
/XX->READ MAINTENANCE STATUS COMMAND ERR */ 
/XX— >LOOP MODULE-ERR #/ 



ERROR CODE STORAGE 



.BYTE 
.BYTE 
.BYTE 
•BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



ERR CODE - EXTENDED 



.SBTTL PATCH AREA 



0 

.=.♦200 
0 



.LAST ADDRESS NOT TO EXCEED 17776 



CZRXEAO RX02 
CZRXEA.P11 



FMTR PROG MACY11 30(10A6) 20-SEP-78 10:A8 PAGE 
20-SEP-78 10:48 CROSS REFERENCE TABLE - 



N 6 

70 

- USER 



SVMBOLS 



SEQ 0078 



ABASE = 


1 771 70 


61 27# 


6128 




ACDUl = 


000000 


6128 






ACDU2 = 


000000 


6128 






ACLOU = 


000010 


S98&ir 


6684 




ACPUOP= 


000000 


6128 






ADDUO = 


000000 


6128 






ADDUl - 


000000 


6128 






ADDU10= 


000000 


6128 






ADDW11= 


000000 


6128 






ADDW12= 


000000 


6128 






AD0W13= 


000000 


6128 






ADDUK= 


000000 


6128 






ADDW1 5= 


000000 


6128 






AD0W2 - 


000000 


6128 






ADDW3 = 


000000 


6128 






A0DU4 = 


000000 


6128 






ADDW5 = 


000000 


6128 






A00W6 = 


000000 


6128 






ADDW7 = 


000000 


6128 






AD0U8 = 


000000 


6128 






ADDW9 = 


000000 


6128 






AOEVCT= 


OQpOOO 


6128 






ADEVM = 


oooooo 


6128 






ADRS 


0051 OA 


7088* 


7096* 


7104* 


ADTST 


00220A 


621 1» 


6423* 


6435* 


ADTSTX 


002344 


6455* 






AD1 


00223A 


6440# 


6452 




AD2 


002334 


6446 


6453* 




AENV - 


OOOOOO 


6128 






AENVW = 


oooooo 


6128 






AFATAL= 


OOOOOO 


6128 






AnADR1 = 


oooooo 


6128 






AMADR2= 


OOOOOO 


6128 






AttADR3= 


oooooo 


6128 






A«ADR4= 


oooooo 


6128 






A^w«S1= 


oooooo 


6128 






AMA«S2= 


oooooo 


6128 






ArtAHS3= 


oooooo 


6128 






A^W«S4= 


oooooo 


6128 






AMSGAD= 


oooooo 


6128 






AMSGLG= 


oooooo 


6128 






A«SGTY= 


oooooo 


6128 






A«TYP1= 


oooooo 


6128 






AttTYP2= 


oooooo 


6128 






AMTYP3= 


oooooo 


6128 






A«TYPA= 


oooooo 


6128 






ANSCHG 


012650 


8364* 


8369* 


8449 


ANSDEf 


012646 


8363* 


8368* 


8446 


ANSWER 


000530 


6149* 


6328 


6335 


APASS = 


oooooo 


6128 






APRIOR= 


oooooo 


6128 






APTCSP= 


000040 


6000* 


8591 




APTENV= 


000001 


5999* 


6197 


6243 


APTER 


012570 


8340 


8351* 




ASUREG= 


000401 


6125* 


6128 




ATESTN- 


oooooo 


6128 







7114* 7119* 7124* 7133* 7140* 7158* 



8451 
6343 



8351 



6352 6363 



7878 



8437* 8446* 8456* 



B 7 
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liACYll 


30(1046) 


20-SEP- 


•78 10: 


48 PAGE 70-1 


CZRXEA. 


P1 1 20-SEP-78 


10:48 




CROSS REFERENCE 


TABLE — USER 


AUNIT = 


000000 


612tt 










AUSUR = 


000000 


6128 










AVECT1= 


00026A 


6126* 


6128 








AVECT2= 


000000 


6128 










BAOyRO 


on 540 


8005* 


8023 


OA/ ^ A 

8046* 


8064 


8150 8153 


BAEMPT 


OOS120 


7102 


7146* 








BAFlLi. 


oosn6 


7100 


7145* 








BA11 


001770 


6395* 


6425 








BA231 


007076 


7696# 


7722 








BB30 


007742 


7882# 


7884 








BC13 


002470 


6503# 


6505 








BC20 


002622 


6584# 


6612 








BC22 


003332 


677^» 


6802 








8C231 


007126 


7702» 


7719 








BOAUDL 


010142 


7944# 


7952 








BOBUDL 


010146 


7945# 


7948 








BE 00 


001306 


6234 


6236* 


odoo 






BFOG 


001316 


6238* 


6240 








BITCNT 


011526 


8164* 


8169 


ol fO* 


B1 7Q 


8181* 8191 


BITLIM 


011532 


8009* 


8050* 


o 1 fy 


Q1 OTif 




BirnsG 


011530 


8148* 


8174 


O lOJ* 


oiydm 




BITOFF 


011534 


8008* 


8049* 


fil 


01 C7* 


8162 8194 


BITPAS 


011524 


8147* 


8182 


81 0** 


oiyu* 




BITO = 


000001 


5994 


6042* 








BITOO = 


000001 


6042* 










B1T01 = 


000002 


6042* 










BIT02 = 


000004 


6042* 










BIT03 = 


000010 


6042* 










BIT04 = 


000020 


6042* 










BIT05 = 


000040 


6042* 










BIT06 = 


00J100 


6042* 










BIT07 = 


OGC'^OO 


6042* 










BIT08 = 


000400 


6042* 










B1T09 = 


001000 


6042* 










Bin = 


000002 


6042* 










BiTIO = 


002000 


6042* 










BIT11 = 


0040CO 


6042* 










BIT12 = 


010000 


6042* 










BIT13 = 


020000 


6042* 


6447 








BITU = 


040000 


6042* 










Bins = 


100000 


6042* 










BIT2 = 


000004 


6042* 










BIT3 = 


000010 


6042* 










BITA = 


000020 


5992 


6042* 








BITS = 


000040 


5993 


6042* 








BIT6 = 


000100 


6042# 


6214 


7BDQ 


BZ1 0 




BIT7 = 


000200 


6042* 










B1T8 = 


000400 


6005 


6042* 


0£J 1 






BIT9 = 


001000 


6042* 










BPTVEC= 


000014 


6042* 










BSINIT 


012262 


6452 


7540 


7544 


e269M 




BSINTX 


012400 


8291* 










BTRP 


000320 


6118* 


621 


6221* 


6437* 


6453* 


BTRPFL 


000570 


6165* 


6192* 


6421* 


6424 


6445 8328 


3TRP2 


000322 


6119* 


6216* 


6222* 


6438* 


6454* 


CK8ITS 


011314 


8029 


8070 


8147* 







SEQ 0079 



C 7 



CZRXEAO RX02 FMTR PROG 


MACYll 


30(1046) 


20-SEP-78 1 0.- 


48 PAGE 


70-2 


CZRXEA.P11 20-SEP-78 


10:48 




CROSS REFERENCE 


TABLE — USER J 


CKSYAD 


002422 


6358* 


6368* 


6495* 








CMD 


0O05A2 


61S4# 


6774 


6780 


6784 


6794 


6803 




7066 


7077 


7535* 


7536 


7991 




CMDTBL 


003772 


6861 


6878 


6899* 








CMPWRD 


011556 


8006* 


8047* 


8149 


8195* 






CWSGTB 


01 1 54A 


8007 


8201 # 










LMSG10 


01170A 


8207 


8233# 










CMSG1 1 


011713 


8208 


8234# 










CMSG12 


01 1 750 


8209 


8210 


8235* 








CMSG1 5 


01 1 770 


8212 


8236* 










CMSGA 


01162A 


8201 


%227M 










CMSG5 


011634 


8202 


822SM 










CMSG6 


011641 


8203 


%229M 










CMSG7 


011662 


8204 


%21QM 










CMSG8 


011665 


8205 


8231* 










CMSG9 


01167*^ 


8206 


8232* 










CR = 


000013 


6042# 












CRCALL= 


000200 


6001 # 


634'; 


6347 


6979 






CRCERR= 


000001 


5994# 


726B 










CRLF = 


000200 


604 2« 












CSR 


000534 


615U 












CSRAOR 


01 0230 


6667* 


7153* 


7945 


7961* 






CSRCHK 


010404 


7232* 


7248* 


7262* 


7537* 


O A A 4 u 

8001* 




CSRCKX 


010616 


8031 


8035* 










CSRCMP 


000546 


6156* 


7227* 


7228* 




7506* 


7509* 


CSRHSK 


000544 


6155* 


7229* 


7510* 


8002 






OBGFLG 


000516 


6088* 


6144* 


6190* 


6370 


7529 




[)eLDEN= 


000400 


6005-^ 


6233 










DC 20 


002762 


6611* 












DDISP -• 


177570 


6042/r 




7943* 








DELAY 


010136 


66/0* 


7155 








DE^ei r= 


000400 


5985* 


6337 


6339 


7517 






DE^€W= 


000020 


5992* 












DENS 


000506 


6140# 


6233* 


6235* 


y o O "7 

6887 






0»*iIT = 


000040 


5983# 


6668 


6672 


7086 


OT 

7227 


7505 


DOJT 


013572 


8566* 


8583 


A f or 

8585 








DOUTO 


01 3654 


8581# 












0OUT1 


013606 


8569# 


8570 


fir TO 

8578 








0OUT2 


013634 


8572 


8575* 










0OUT3 


013642 


8574 


8576* 










DRIVE 


011224 


7345* 


7353* 


7356* 


7363* 


7371 • 


7374* 






8121# 












DRIVE1= 


000400 


599U 


7516 










DROPAV 


006264 


7432* 


7441* 


7451* 


7455 


7462 


7^b7ft 


OROPOV 


006036 


7335* 


7346* 


7349* 


7364* 


7367* 


7375 


DRVAVL 


006040 


7242* 


7k^2ll 










DRVCNT 


007260 


7697* 


7710 


7712 


7716* 


TT ^ o 

7718 


7725ft 


DRVDEN= 


A A/\A i A 

000040 


5993# 


7519 










DRVDHP 


0U!> j30 


7239* 


7255* 


(if C* 


035* 






DRVPTR 


007262 


7696* 


7703 


77U* 


7726* 






DRVR 


004402 


6810* 


70biitt 










ORVRty= 


000200 


5987# 


7U16 


7446 








DRV1 = 


000020 


5996Jr 


6780 


7338 


71,1^ 


7514 


8090 


DSWR = 


177570 


6042# 












DVSCON 


004366 


6972* 


6973* 


6981 


69V5* 


7001* 


7032* 


OVSEC 


004372 


6976* 


6977* 


6994* 


6997* 


6998 


6999 



SEO 0080 



6805 



6861* 6862 6878* 6879 6887* 7C65 



8006 8019 



7379 7383* 



7002* 7007* 7018* 7019 7034* 
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SEO 0081 



OVTKDN 


OCA 362 
00A37t 


6970* 


6971* 


6983 


6985* 


DVTRK 


6974* 


6975* 


6986* 


6989 


EAOO 


00125>o 


6194 


6213 


6230* 




EA10 


001520 


6329 


6332* 






EA13 


002510 


6497 


6499 


6507* 




EA21 


003246 


6678 


6692 


6696* 




EA221 


003746 


6866 


6872 


6881 


6884 


EA223 


004450 


7071 


7073* 






EA225 


005522 


7241 


7243 


7253 


7"^C 7 

7257 


EA232 


007330 


7752 


7754* 






EA233 


007466 


7784 


7792 


7794 


7800* 


EB10 


001 562 


6338 


6340* 






EB1 1 


002136 


6400 


6421* 






EB20 


002774 


6583 


6614* 






EB2253 


006374 


■yc 1 o 

/'^ lO 


7520f> 






tB251 


007242 


7700 


7720* 






ECOO 


001076 


6203 


6205* 






EC10 


001624 


6346 


6348* 






EC222 


004202 


6988 








EC23 




7624 


7t5o 


7^y 
r640 


7z_y C 

7645 


EDOO 


001212 


6218 








ED10 


00166? 


^ 7CC 


655 






t02\ 


003210 


6688 


6690* 






tvccc 


0041 fH 


6yV? 


OVt** 








007222 


(Oh 


771 ^ U 






EE221 


005/^26 


y.a7C 

68^5 


Z. 007M 

6883* 






ttccc 


004<:/'4 


7AAT 


7 AAC 


7AAOM 

fOOoff 




cc<:3i 


AA71 
OOf 16£ 


r r08 


771 A* 

r f\Olf 






EF20 


00? ^dZ 


6578 


6600 


6607 


AQM 

660V* 


EGOO 


AA^ TCA 

001 J jO 


6?4^ 


6?4o* 






tG22<: 


AAy T/ ^ 

00454? 


7A1 C 

/Ol 5 


7A1 OM 

7018* 






E6<:<:D 


AAC CA/ 
003504 


(2tyr 


7*571 M 






EH£2j 1 


AACAAA 
005000 


7i A^ 


71 01 
f 12 Iff 








0Uo?60 


7/ ex. 


7i £.t M 






ElOO 


AA1 y / / 

001 4h^ 


626? 


6?64* 






EKZtJ 1 


AAy 

004 o4o 


71 AI 

rlOl 


71 A7« 
f 105* 






EnSGTB 


A1 1 C7/ 

on !>rs 


OAV O 

o04o 


001 / M 

o?l^* 






tnSGO 


Ai i 777 

0\\f(r 


8?14 


8?58* 






tnSGl 


A1 OAAT 

01?00j 


0*51 C 

0?1 5 


o?5y* 






cHSGlO 


Al "^l Ty 

01?134 


82?4 


8?48* 






EHSGll 


Ai "^1 

01 ?1 56 


8?i:5 


8249* 








AI *^A1 / 

01?01h 


oo 1 yi. 
8?16 


0*5/ AJ# 

o?40* 








AI OAO^ 

01 ?0?6 


001 7 

o?1 ( 


o?41* 






EMSGh 


AI OA1C 

01?05d 


OOl o 

8?lo 


o2**2fr 






tMS65 


AI OAC1 

01?051 


8?19 


ooy 7« 








AI ^A^^ 

01?066 


O??0 


ooy y if 
8?4<»* 








AI 01 AI 


8??1 


o?45* 






cnSGo 


Ul?l i5 


8??? 


o?4o* 






FMSG9 


012125 


8223 








E«TVEC= 


000030 


6042# 








E«22 


003550 


6808 


6810* 






ENDFTB 


000634 


6183# 


6237 






enotsh 


011130 


8084 


8097* 






ENDOO 


001452 


6266# 








EN0223 


005100 


7121 


7126 


7130 


7135* 


ERR8IT= 


100000 


5995* 


6679 







6993* 
6990* 



6887* 

7259 



7010 
6991 



7012* 
7008 



7017* 
7036* 



7030* 



7267 



7274* 



7647 



7654 



7656* 
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SEO 0082 



ERRCHK 

ERRFLG 

ERRSET 

ERRTYP 

ERRVEC= 

ERSETX 

ERSTAT 

ESR 

ESRCHK 

ESRCKX 

ESRC«P 

ESRMSK 

GETANS 

GETCHD 

GTCMD 

GTSyR 

GTSYAD 

HDRFLG 

HT 

lAOO 

IA10 

IA13 

IA20 

IA21 

IA22 

IA221 

IA222 

IA223 

IA225 

IA2251 

IA2252 

IA2253 

IA23 

IA232 

IA233 

IA30 

I BOO 

IB10 

IBII 

IB13 

IB20 

IB21 

IB221 

1B222 

IB2231 

IB225 

IB22i>1 

IB2252 

182253 

IB23 

IB231 

IB233 

iCOO 

IC10 

IC21 

K221 



005164 

005526 

012240 

000604 

000004 

012260 

005106 

000536 

010624 

011034 

000552 

000550 

012624 

003564 

003556 

002346 

001766 

000602 

000011 

001020 

001 500 

002424 

002550 

003060 

003324 

003624 

004104 

004424 

005210 

005544 

006050 

006340 

006572 

007304 

007344 

007712 

001034 

001534 

002012 

002434 

002600 

003120 

003642 

004114 

004552 

005300 

005554 

006060 

006356 

006620 

007114 

007352 

001044 

001576 

003150 

003654 



6767* 

7220* 

6452 

6171# 

6042# 

8263# 

7129* 

6152# 

7234 » 

8072 

6158# 

6157# 

6327* 

6773* 

6764* 

6372* 

6357* 

6170# 

6042# 

6193* 

6328* 

6496* 

6573* 

6672# 

6~'9# 

68634r 

6979* 

706ar 

7224# 

7338# 

7434# 

751 4# 

760ftr 

7749# 

7783* 

7878* 

6197* 

6335* 

6399* 

6498* 

6574 

6673 

6868* 

6981* 

7090* 

7236* 

7340* 

7436* 

7515 

7609 

7699* 

7785* 

6199* 

6343* 

6684* 

6871* 



7219* 














f C J J" 


7?X';» 






f CJ 1 ■ 


73^? 
r c JC 


77/Lt* 
f c05" 


JOf ' 


OO Tv 


77 ^fl 




7?71 

(eft 






/ 1 H 1 ^ 


















f JH \^ 










0\Ji 














7230* 


7513* 


7516* 


7519* 


8044 


8047 


8060 


7231* 


7520* 


8043 










6334* 


6342* 


6351* 


6362* 


7877* 


8363* 




6855* 














6771 


6772* 


6788* 


6790'* 


679S* 


6800* 


6801 


6462* 














6367* 


6394* 












7219* 


7533* 


8083 


8085* 


8331 


8333* 





6578* 
6679* 



7517* 
7611 



7265* 
8260* 



7266 



7277* 



6813* 



7614* 
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1 r "^OO 




6983ir 




f r "ilTi 

ICccil 


OOso/0 


7091 


7W70 


I Iccb 




7225 


72Ut*0 




0U55O«» 


7342* 








7438* 








7615 


7t\7 


T r Oil 


AA7/ 5A 


7786 


779ZM 


IDUU 


AA1 1 7A 

001 1 r 0 


6217* 




ID lU 


AA1 iLy y 


6352# 




ID<:U 


AA5A.5/ 

OOiOc*! 


6579 


6581 


1 fNOI 

ID^ I 


AA71 7A 

00 J 1 fyj 


6685 


6687* 


luce 


00355U 


6774# 




iD^^ 1 


AA771 ^ 
003f 1 O 


6880* 




Ivdcd 


AAy 1 y;5 
OOh lOc 


6991 # 




1 




7109# 






'iAC77Z. 


72S2M 




IDtCJ 1 


AA^A75 
WJOjd 


7350# 






rwv^i 1 / 




7439 




OOOOf H 


7621 


7625* 


ID^3 1 




7703* 




icm 
Ic lU 


AA1 71 /. 








00co*»o 


6590* 






An751 A 


6680 


6691* 






6780* 








6874* 






fW.55^, 


6999* 




tC 5571 




7108 


7}270 






7266M 




r c 55^1 




7339 


7358* 




<W«1 7/. 


7435 


7446* 






76270 




rc 571 


AA71 / A 


7705* 




run 


nni 7^5 


6364 


6370* 


r c 5f> 


AA5X.7/L 


6586 


6588 


t s 51 

1 r ^ 1 




6697* 




f C 55 


AA7ZAA 


6782* 




I C 555 


AA/. 5^A 


7000 


7004* 


! C 55^ 




7245 


7258* 


r 1 55^1 


UU5' 


7360* 




f C 55'»5 


UvO 1 **** 


7i,i,SM 




I C 57 

\t db 


A/^71 5 


76?9* 




Iuva; 


Ani 77Z 


6243* 




r r5n 


Wdf cd 


6602* 




r r 55 
I Oct 


I** 


678i,M 




r/;555 




6980 


7010* 


rr 55< 


nn^/.7n 


7268* 




r/:55^l 


UU5 f 


7368* 




lliCCJd 


UUDIOO 


7447 


7449 






763:* 




IHOO 


00U06 


6253* 




IH20 


002634 


6587* 




IH22 


003424 


6786* 




IH2231 


004562 


7092* 




IH2251 


006000 


7343 


7348 


IH?25? 


006204 


7443 


7445 


IH23 


007020 


7626 


7648* 
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SEQ 0083 



/'620* 



6585* 



7442* 



6595 



6597* 



7355 
7453 



7357 
7455* 



7361 



7366 



7373 7375* 
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CROSS REFERENCE TABLE — USER SYMBOLS SEQ 0084 


IIOO 


00U32 


6254 


6261 « 




1 120 


002706 


6599# 






1122 


003450 


6781 


6792# 




! JOO 


001 262 


623U 






IJ?? 


003460 

V/w WW 


6794# 






IIC22 


003470 

WV^^ f w 


67964r 






1K2231 


004620 

VW^ wt V 


7098# 






1L22 


003520 


6803# 






1M22 


003536 


680 7« 






INITCK 


003002 

VW^ VVw 


6572* 


6577* 


6661)0 


1N]TDN= 


000004 


5989# 


6687 




INITDP 


003270 


6663* 


6674* 


6681'* 6693* 6697 6702* 


INITPG 


000514 


6K3^ 


6241* 


6609* 6763 6855 


INITTS 


004360 


6 '63* 


6966 


6969* 7027* 


INTLV = 


000002 


o997 


702A/r 




IOTVEC= 


000020 

^^^^^^ w 


6042# 






LASTAD 


017660 


8698# 






LA221 


003636 


6864 


6867/r 




LA223 


004442 


7069 


7072M 




LA232 


007322 


7750 


77SIM 




LA30 


007766 


7879 


7S87M 




LBOO 


001146 


6198 


621 4# 




L810 


001554 


6336 


6339# 




LB221 


003734 


6869 


6885# 




LB222 


004210 


6982 


6997# 




LB225 


005326 


7237 






LB2251 


005624 


7341 


75^9M 




LCOO 


001070 


6200 


6204# 




LC10 


001616 


6344 


634 7# 




LC222 


004150 


6984 


6989# 




LDIO 


001660 


6353 


6356# 




LD22 


003370 


6775 


67790 




1 D2231 


005002 


7110 


7^22» 




LD2251 


005662 


7351 


7156M 




LE20 


002672 


6591 


6596# 




LE2231 


005052 


7128 


7131# 




LE2251 


005740 


7359 


7367# 




LE23 


007012 


7628 


76464r 




LE231 


007156 


7706 


77090 




LF = 


000012 


6042# 






LF22 


003442 


6783 


67900 




Lr23 


006766 


7630 


7641# 




LQ20 


002746 


6603 


6608# 




LW22 


004330 


7011 


701 6# 




LG2251 


005774 


7369 


757^,0 




LG23 


006760 


7632 


76190 




LM2231 


004710 


7093 


7^^^0 




LM23 


007052 


7649 


7655# 




LI22 


003506 


6793 


6800/ir 




LJOO 


001302 


6232 


6235# 




LK2231 


004640 


7099 


7102# 




LOOP 


006406 


7240* 


7256* 


7273* 7528* 


L00P1 


006446 


7536# 


7540 


7544 


L00P2 


006520 


7539 


7541# 




L00P3 


006564 


7543 


7545# 




LPPRT 


012402 


8275 


8290* 


8295* 
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CZRXEA.P11 ?0-SEP-78 


1 n ■ LA 
1 U : HO 






cvMBm c ccn nnR^ 






A 1 / ^it 
C 1 *• J* 


A5ni » 


A31Qft 7Q1 7 

Oc 1 T^ r T 1 J 




1 C I TDD 

Loll Kr 


yJM 1 c W 


DC 1 J 


Oil 

Ot 1 T* 








U 1 f cj** 


r ''oU 


BA71 M 
OOr 1 ^ 










75/.A 


oOr 








ni 7XLA 


7D5A 
f CCO 


B4L77if 
OOf jlf 








ni 7/. 1 7 


7KXL 


oof H* 






nab 1 


ni 77A D 


70A1 

f TO 1 


AAn^jr 

OOUOw 






nau 1 u 




77BO 


7707 


RA1 ^If 
OO 1 J'f 




n^u 1 1 


A1 


o'«'iy 


RA1 A« 

00 1 






n>vj 1 c 


m A 7A7 
U Im JO' 


o*» JO 


BA1 7if 
00 1 1 ff 






novj 1 J 


rtl A/.1 1 
U 1 1 1 


Bni 7 


OUjo 


flAi Rir 
OO 1 o^ 




nou 1 *♦ 






BA1 Oil 
OO 1 Tw 






HoVJ 1 J 




B1 7n 


BA^njf 

OOtUw 






nov> 1 o 




S1 XX 

O 1 J J 


OOc I* 






Mcr:i 7 




Bill 
O 1 1 1 










ni Ann? 


o*»oc 


OOU' ^ 








nii^^A 


B1 1 A 
Olio 


OOc J* 








VJ 1 S JOH 


70B^ 
f TO J 


7QRQ 

f TOT 


Rn?i Rn^s RHA? RnAA 

Ovc i Ovc J OUOc OwOO 


RAPAir 

OOCHW 






A1 7Q 

O 1 CT 


OOc 








ni/<c,in 


OOtj 


OOcO" 










O jJO 


OOc ' » 










Oj 1 0 


OOcOw 










Bni 7 
OU 1 J 


OOCTW 


• 




nowc ' 


ni47V> 


OUj*» 


flA7n« 

OOjUw 








\J IH r JC 


8970 
Oc ' T 


R/\7lir 

OOj I ^ 










AAA 7 
OOO J 


RA77ir 

OOjc* 










O 1 T J 


RAnRjr 

OOUOw 








ni snxi 


707? 


RA77ir 

OOJJW 












?^74ir 








ni sn77 


OOj J* 










nisiPi 


77an 

1 jOU 


f hOj 


OO JOw 






ni Slin 


A^ni 

OjU I 












fli A7 

0 1 Or 


RA7Rir 
OOjO^ 








nis?i 7 


OO JTW 










ni s??^ 


OcO*« 


RA^n^ 
OOhU^ 








ni s?44 


OO** 1 ^ 










ni S7nn 


A77n 

OjjU 


OOhc* 








ni4n7? 


0*»Uc 


RAOQiT 
OOUtw 








ni ^^nL 


OO** J* 










ni S7n? 


77Qn 

1 f TV 


770H 
r f TO 


7077 H/\L(\1I 
17 11 OOHD^ 






ni S7?^ 

U 1 J f C J 


OO** f ^ 










ni S7?A 

w 1 J f cO 


Ojc J 


RAAft^ 
OOhOw 






mcrj.i. 


ni S7S? 


OOOt 


OOh 








U lOVH J 


A779 


OO jUw 








1/ lO 1 C J 


fiXL.C\ 


OOJ I w 








1/ 1 OcUO 


Ojht 


RA^7« 
OOjc* 








niA?7i 


O jOU 


OO J j^ 








\J f VJJ f 


A^S9 
ODOc 


RA^A^ 

OO/HW 






MSGS 


0K127 


AAI 
Oh I 


RAin^ 

00 1 \)ff 






MSG50 


01 W22 


OOj 








MSG51 


01W2S 


f f HJ 


R1 n? 

O 1 Uc 


OO JD» 




nsG52 


016436 


OOf O 


OO J f ^ 






MSG53 


016475 


7754 


86S84r 








016S30 


6686 


8659* 






MSGS 5 


016613 


7458 


8660# 






MSGS6 


016703 


7876 


8661* 
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MSGS 7 

MSG58 

MSG59 

MSG6 

I1SG7 

I1SG8 

f1SG9 

N 

NSnSG 

OCTP 

aTPE 

0CTPE1 

OCTPG 

OCTPGX 

OCTPGO 

0CTPG1 

OCTPX 

OCTPO 

0CTP1 

0CTP2 

0CTP3 

OFL 

OPINT 

OTSYDN 

OUTCMD 

OUTSyD 

PATCH 

PCNTR 

PIRQ = 

PIRQVE= 

PRIHI 

PRILO 

PRTORV 

PRTKSC 

PRTSYS 

PRO 

PR1 = 
PR2 = 
PR3 - 
PR4 
PR5 

PR6 = 

PR7 

PS 

PSW = 

PTSIDF 

PTSYST 

PWRVEC= 

RD«NST= 

RDSEC = 

ROYUD 

REGS 

REGSO 

REGS1 

RESVEC= 



016766 
017065 
017117 
0U164 
0U202 
0U206 
0U246 
000011 
010074 
012200 
013346 
013334 
013352 
013526 
013566 
013544 
013550 
013524 
013366 
013410 
013416 
013512 
013570 
001456 
007676 
004524 
005124 
017456 
000522 
M7772 
000240 
010020 
010034 
011154 
011232 
011132 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
y7777t 
1 7777t 
011230 
007062 
000024 
000012 
000006 
010226 
000510 
000314 
000316 
000010 
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7880 

6502 

7887 

6246 

8211 

7623 

7637 

6007# 

7897* 

8185 

6250 

6465 

8506# 

8513 

8557# 

8548 

8508 

8543# 

8504 

8511 

8514 

8509 

8502* 

6223* 

6245* 

7079* 

7089 

8696# 

6146* 

6042# 

6042* 

7078* 

7080* 

7378* 

7270* 

6401* 

6042* 

6042* 

6042* 

6042* 

6042* 

6042* 

6042* 

6042* 

6042* 

6042* 

7336* 

7634* 

6042* 

6003* 

6002* 

6668* 

6141* 

6116* 

6117* 

6042* 
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SEO 0086 



8662* 

7881 

3664* 

8611* 

8423 

8613* 

7644 

6452* 

7905* 

8251* 

6405 

7984 

8516 

8550 
8553* 

8507 

8515* 

8517* 

8541* 

8505* 

6324* 

7876* 

7086* 

7097 

6230* 



7897* 
7905* 
7461* 
8129* 
6500* 
7905 



8663* 

8453 8612* 

7653 8614* 

6677* 6690* 

7915* 7917 

6414 7748* 

7988 8020 

8523 8527 

8552* 

8510* 



8538* 8549 8552* 8559* 



7238* 
7920* 


7254* 


7271* 


7540* 


7544* 


7092 
8024 


8104* 
8028 


8113* 
8061 


8118* 
8065 


8132* 8135* 
8069 8502* 


8532 


8537 


8540 


8547* 





7105 7115 7120 

6249 6251* 6252 

7715* 8096* 8111* 

6675* 6682* 6694* 



8289* 8339 



8505* 



7125 



7134 



7153* 



7377* 7457* 7459* 7701* 7788* 7796* 8089* 8102* 



6204 


6226 


6229 


7897 














6204* 
7347* 
7642* 


6217* 
7354* 
7651* 


7917* 
7365* 
7694* 


7372* 


7460* 


7707* 


7709* 


8095* 


8114 


8123* 


7224 

6807 

7086* 

6397* 

6212* 


7258 
7094* 
6404 
6397 


7103* 

6406 

6427* 


7111* 

6422 

6498 


7118* 

6427 
7927 


7}22* 
7928 


7131* 


7154* 


7156 


7945 
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RXCSAD 


000472 


61 34# 


6210* 


62 1 2 




643V 




7927* 


TAO 7 

7983 


O AA 1 

8001 


om7 
80? r 




RXDBAD 


000474 


6135* 


6684 


z Z 07 

6687 


7AA^ 


71 A/ 

71 04 




7452 


7928* 


7929* 




OA/ O 

8042 


RXINl T= 


040000 


r AA^ M 

5997* 


Z Z. Z C 

6665 


6666 






RXINTO 


012404 


6095 


y ^AO 

6208 


6225 


O AAm 

8299* 




RXINT1 


012412 


6099 


6228 


0 7A^ M 

8306* 






RXVECT 


000476 


6136# 










RX281T= 


004000 


5998* 


6691 


7no 

7228 


7C AiC 

7506 




RYDLV 


010224 


7944 


7959* 








RYOX 


01 0222 


6669* 




7ACO M 






SECADR 


0051 14 


7075* 


7112 


7144* 






SECTR 


000500 


6137* 


69v8* 


7AA/ 

7004 


7AA£ * 

7006* 


7A1 O* 
701 7* 


SETDEN= 


000010 


6004* 


7AZ. Q 

7068 


7^/ / 

7244 






SETMSG 


012222 


8148 


8252* 








SETPIX 


010072 


7916 


7918* 








SETPRI 


010050 


70 AO ^ 

roVo* 


/^VOo* 


701 7« 

7V1 3* 






SIDE 


011226 




77C 1 A 

7352* 


7362* 


777A*. 

7370* 


771 0» 

7 71 1:* 


SIOEl = 


001000 


5986* 


^ 70/ 

6784 


^ 70/ 

67y*» 


77/ A 

7340 


77CD 

735c 


SIDRDY= 


000002 


>yvo* 


7/ / "5 


7/ CD 






SSUCAD 


010076 


6664* 


7064* 


72^1 * 


7/ 77* 

7^33* 


7y26* 


SSUCOF 


010126 


6596* 

O AOO ^ 

8088* 


6426* 


7i A 

6671 * 


6765* 


6768* 


STACK = 


001000 


6042* 










START 


Arti AAA 

001000 


Z AO i 

60o 1 


^ AOC 

608? 


XAOA 

60V0 


£1 OOM 

61 87* 


D71 Q 

8318 


STFLG 


AAA C 

000576 


6168* 


o/ / 
844<:* 








stk:lwt= 


1 77774 


Z A/ M 

6042* 










STSTBT 


AA^ Z 

006266 




71^ 1 A 


7CACM 

7?05* 






sue 


AAAZ 1 A 


61 73* 


^ 7/ O «. 

o348» 


636!)* 


6570* 


6575* 






77/ O 


77D7* 


77Q^» 
/ f 7J • 


7Q7A 

/y36 


fl1 A7 

a IU3 


SWP 




oljV* 


L. OAC * 


6<:31 


£70/ * 


6j3/ • 






6j6V* 


^Q77 

6573 


6585 


£CQ7 

6577 


trrfy 






77C 1 ^ 


77^1* 
7 733* 


7WO 




80 10 






834 <: 










SWREG 


AAAT1/ 

000324 


6l<:0# 


Z.1 TO 

6 i3y 


63^:4 


£/ £/ 
64 6h 


£/ ££ 

6^66 


swo = 


AAAAA^ 


6042* 










5W0Q = 


AAAAAi 


6U4<f# 










SU01 = 


AAAAAT 

000002 


Z A/ ^ M 

6042* 










SW02 = 


000004 


^A/ ^« 

6042* 










SW03 = 


AAAA1 A 


^A/ "5* 

604^* 










SW04 = 


AAAA'^A 

0000^0 


Z A/ 

6U42* 










SUO!> = 


AiWW A 


^ A/ O 

oU4<:* 










SWOo = 


AAAi AA 

0001 00 


ZA/ 

604 <:* 










Ci — 

SUOr = 


AAAOAA 


^A/ OJ* 










SWOo = 


AAA/ AA 

OOOhOO 


^A/ OJi 

604 <:* 










SW09 = 


AA1 AAA 

001000 


Z A/ 

604 <;* 


6452 


7C/ A 

75^0 


7C/ / 


P'577 




\AAJ\AJC 












SW10 = 


002000 


6042* 










SW11 = 


004000 


6042* 










SW12 = 


010000 


6042* 


8272 








SW13 = 


020000 


6042* 


8010 


8051 






SW14 = 


040000 


6042* 


7979 


8015 


8056 




SW15 = 


100000 


6042* 











SW2 = 000004 6042* 
SW3 = 000010 6042* 
SW4 = 000020 6042* 



J 7 
70-9 

USER SYMBOLS SEO 0087 



6666* 


£££7 

6667 


C67 C 


££70 

66' y 


6ey 1 


7Afifi 

/Uoo 


71 m 

f 1 J J 


71 «iA 
1 1 30 


7114 
8068 


7119 


7^2<, 


7133 


7268 


7436 


7t,i,2 


7i,(,6 


f\)( J 


7n7^ 

(Ml J 














( ( 1 J" 

7512 


771 L * 


B1 1 7 
oil' 


0 1 cc^ 










6776* 


t779* 


6859* 


6978* 


7337* 


7698* 


7926* 


7956* 


6589* 


6601* 


7612* 


7618* 


7695* 


7720* 


7721 


771.7 


6339* 

7531 

8015 


6345* 

7540 

8051 


6347* 

7544 

8056 


6359* 

7610 

8269 


6369* 

7616 

8272 


6447 
7620 
8277 


6452 
7625 
8282 


6466* 

7b29 

8329 



6467 
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SEQ 0088 



SU5 
SW6 

SU7 = 

SU8 

SW9 

SYSCHD 
SYSDRP 
SYSDVR 
SYSERR 
SYSFLG 
SYSMSG 
SYSTAT 
SYTMCK 
SYOTPT 
SY1TPT 
SOAV 



000040 
000100 
000200 
000400 
001000 
002514 
007264 
003272 
000606 
000574 
000572 
006570 
007342 
003762 
003764 
000612 



SOCMD 000622 



SOCMDF 

SOON 

SOD VON 

SORDY 

SOSEC 

SOTRK 

SOUPt-T 

SlAV 

SICMD 

S1C«>f 

S1DN 

S1DV0N 

S1RDY 

SI SEC 

SITRK 

SlUMLT 

TABAOR 

TB1TVE= 

TCEX 

TCRLF 

TCRLFA 

TEMPI 

TEMP2 

TEMP3 

TEX 

TE2231 
TIB 

TINER 

T»CB 

TKS 

TKVEC - 

TMSGAD 

TOB 

TOERBT 
TOG 



003766 
000626 
003560 
000616 
011310 
011304 
000556 
000614 
000624 
003770 
000630 
003562 
000620 
011312 
011306 
000560 
011542 
000014 
013332 
013264 
013302 
000562 
000564 
000566 
013740 
005042 
000526 

013020 
000302 
000300 
000060 
000600 
000524 

010402 
013700 



6042* 

6042* 

6001 

6042* 

6042* 

6242* 

7613* 

6594* 

6172* 

6167* 

6166* 

6610* 

7639* 

6857* 

6858* 

6174* 

7368 

6178* 

8090 

6874 

6180* 

6771* 

61 76* 

707i* 

7074* 

6160* 

6175* 

6179* 

6895* 

6181* 

6815* 

6177* 

8141* 

8139* 

6161* 

8007* 

6042* 

8481 

8483 

8489* 

6162* 

6163* 

6164* 

8592 

7129* 

6148* 

8451 

8394 

6107* 

6106* 

6042* 

6169* 

6147* 

8571 

7954* 

7950 



6042* 



6567* 

7619* 

6606* 

7783 

6261 

6613 

7607* 

7646* 

6860 

6893* 

6571* 

7379* 

6665* 

6883* 

6587 

6814* 

6567* 

8134 

8131 

7070* 

6576* 



6599 
6568* 



7839 
8048* 

8496* 
8486* 
8492 
8384* 

8581 
8597 

6504 
8456 
8397 
8468 
6214* 

6436* 

6236 

8576* 

7970 

8484 



7745* 

6763* 

7785 

6611 

7623* 

7655* 
6865* 

6578 
7438 
7065* 

6886* 

6777* 

6870 

6590 

8140* 

8138* 

7072* 

6580 



7627 
6602 

8171 



7793 

7622* 

7637* 


7800* 
7633* 
7644* 


7819* 
7641* 
7653* 


7842* 
7650* 


7953* 
7885* 


8033 
7888* 


8034* 


OA7/ 


OUr 3* 


7782* 
6876* 


6877 


6882* 


6885* 


6892* 










6696* 
7444* 
7222 


6699* 

7448 

7338 


6769 

7454* 

7340 


6782 

7462* 

7358 


6786 
7608 
7434 


6792 
7703 
7507 


6796 
7705 
7511 


7lt,2 

7791* 

7514 


7350 7360 
7517 7535 


7631 

6873* 

6592* 


7635* 
6888* 
8299* 


7648 
6987* 


7652* 
7014* 


7699 











7816 
7614 



7636* 
6604* 

8197* 



8389 8398* 

8584 
8600* 



7883 

8464* 

8411 

7889* 

7226* 

7949* 

8595 

7995* 

8487 



7799* 

7643* 
8306* 



8313 

8468* 

8414 


8387 
8471 
8423* 


8392 
8472* 


8395 


8405* 


7890* 


8319* 


8320* 


8463* 


8465* 


7246* 
8479* 


7260* 
8480 


7534* 
8482 


8086 
8486* 


8334 
8489* 


8490 


8494 


8542 


8555 


8591* 



8405* 8406 8440 8444 8448* 8449 
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SEO 0089 



TOPRT 
TOPRTX 
TPB 
TPS 

TPVEC = 

TRACK 

TRAP 

7RAPVE= 

TRAPX 

TRAP1 

TRAP2 

TR8IT = 

TRKADR 

TRKSEC 

TRTVEC= 

T SHOCK 

TSTERR 

TTAR 

TTAR1 

TTAR2 

TTAR3 

TTIN 

TTINT 

TTIN1 

TTIN2 

TTITF6 

TTOUT 



TTR 

TTRO 

TTR1 

TTR1A 

TTR1B 

TTR2 

TTR3 

TTR4 

TTR5 

TTWAIT 

UA11 

UA231 

UC22 

UC231 

VALWD 

VECT 

VECTO 

VECT1 

WATCHO 

WATCHl 

WATINO 

WATIN1 

WCNTMX 

WCNTRO 



010232 
010400 
000306 
000304 
000064 
000502 
012474 
000034 
012566 
012532 
012550 
000200 
005112 
004016 
000014 
011042 
000554 
013036 
013066 
013106 
013146 
013156 
012420 
013172 
01 3206 
000632 
013232 



012652 
012660 
012706 
012722 
012736 
012774 
013004 
013014 
013016 
000532 
002154 
007246 
003512 
007232 
005110 
000512 
000310 
000312 
007474 
007572 
007670 
007672 
007674 
007566 



7955 

7968 

6109« 

61D&V 

6042# 

6138* 

6437 

6042# 

8343 

8332 

8330 

5984# 

7076* 

6809* 

6042# 

7969 

6159/r 

8365 » 

8441 

8445 

8450 

6503* 

6074 

84664' 

8469* 

6182* 

6196 

6502* 

7789* 

7990 

8129* 

8479# 

6410 

8386* 

8388 

8393 

8396 

8391 

8410 

8413 

8390 

6150* 

6424* 

7721* 

6778 

7718* 

7132 

6142^^ 

6114* 

6115* 

6596* 

6608* 

6593* 

6605* 

7812 

7809* 



7966* 
7980 
8471* 
8469 

6989* 
8328* 

8345* 

8336* 

8340* 

7094 

7116 

6966* 

8012* 

8035* 

8437* 

8444* 

8448* 

8452 

7882* 

8312* 

8467 

8470 

8313* 

6247 

6614* 

7790* 

8014 

8130* 

8485 

6419 

8408 

8392* 

8395* 

8398* 

8409* 

8412* 

8415* 

8416* 

6248* 



6785 

7142* 

6398* 

6224 

6227 

7806* 

7829* 

6766* 

7829 

7835 

7811* 



7993* 
8573* 
8569 



7103 
7143* 



8053* 
8076* 
8455 



8456* 
8312* 



7806 
7831* 
7850* 
7812 



8575* 
8593 



8595* 
8598 



7008* 7013* 7016* 7074 7076 



7111 7118 



8083* 8271 * 



8386 8439* 8463* 



7122 7131 



8314 






















6326* 


6331* 


6333* 


6341* 


6350* 


6361* 


6403 


6412 


6450 


6463 


6501* 


6676* 


6683* 


6686* 


6689* 


6695* 


7380* 


7458* 


7463* 


7694* 


7746* 


7755* 


7797* 


7798* 


7876* 


7880* 


7881* 


7887* 


7973 


7976 


7978 


7982 


7986 


8018 


8022 


8026 


8055 


8059 


8063 


8067 


8087 


8102* 


8111* 


8116* 


8133* 


8168 


8173 


8175 


8280* 


8285* 


8316* 


8335 


8337 


8424 


8454* 


8495 






















6471 


8384* 





















6265* 8596 



6787 6789 6791 6795 6797 6799 6801* 



6413 6415 6420 6428 
6398 6428* 



7808* 
7849* 



7848* 



7814* 7822* 



CZRXEAO RX02 
CZRXEA.P11 



FMTR PROG 
20-SfcP-78 



UCNTR1 

UDCT 

WDOT 

UMLTO 

UMLTl 

URDS 

X 

XER 

XTTAR 

XUOL 

XUPTDV 

XUA'O 

XWAT1 

XIO 

XII 

X12 

XI 3 

X20 

X21 

X22 

X221 

X222 

X223 

X22311 

X225 

X2251 

X2252 

X2253 

X225A 

X23 

X231 

X232 

X30 

SAPTHO 

SBASE 

tCPUOP 

SOEVCT 

SENDAD 

$ENV 

SENVM 

$£TA8L 

SETEND 

SFATAL 

tHIBTS 

SMAORI 

S^1ADR2 

SMADR3 

SMADRA 

SMAIL 

snAns2 

SMAnS3 
MAftSA 
SMBADP 
SMSGAD 
fWSGLG 



00766A 

005122 

0005A0 

007570 

007666 

005102 

000001 

017^46 

01 "51 54 

010220 

011222 

00756A 

007662 

001 76A 

002202 

002A20 

002512 

003000 

003266 

00355A 

003760 

004356 

004522 

005162 

005524 

006034 

006262 

006404 

006566 

007060 

007256 

007340 

010016 

000456 

000454 

000426 

000410 

001422 

000420 

000421 

000420 

000456 

000402 

000456 

000432 

000436 

000442 

000446 

000400 

000430 

000434 

000440 

000444 

000460 

000414 

000416 



MACY'il 
10:48 

7832* 

7095 

6153# 

7810» 

7833* 

7087* 

60064r 

7123 

8443 

7946 

8115 

7813 

7836 

6371 

6429# 

64 72# 

650&r 

661 5/r 

6698 

6770 

6889# 

6996 

7081* 

7157 

727'i0 

7376 

7465* 

7S22M 

7530 

7657M 

77250 

7756M 

7886 

6130* 

6128* 

6128* 

6128* 

6069 

6128* 

6128* 

6128* 

6128* 

6128* 

6130* 

6128* 

6128* 

6128* 

6128* 

6128* 

6128* 

6128* 

6128* 

6128* 

6130* 

6128* 

6128* 



M 7 

30(1046) 20-SEP-78 10:48 PAGE 70-12 

CROSS REFERENCE TABLE — USER SYMBOLS 
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7834* 
7147* 
7077» 
7815* 
7838* 
7095* 

8681* 

8447 

7956* 

8119* 

7817 

7840 

6373* 



6700* 
6804 

7009 

7159* 

7381* 

7532 

7891* 

6210 
6199 

6257* 

6197 

8591 

6130 
8260* 



6130 



7835 


7837* 


7845* 


7087 


7090 


7092 


7816 


7818* 


7823* 


7839 


7841* 


7846* 


7100* 


7102* 


7112* 



7098 7107 
7113* 7116* 



7109 7127 7536* 



7117* 7123* 7132* 7139* 7158 



8457* 



7820* 
7843* 



6811* 
7020* 



7546* 



6243 8351 



8353* 
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8354* 



tMSGTY 


000400 


612&V 


8261* 


yiTYPI 


000431 


6128# 




$MTYP2 


000435 


6128# 




$MTYP3 


000441 


6128# 




$MTYP4 


000445 


6128# 




SPASS 


000406 


6128* 


6191* 


SPASTM 


000464 


6130* 




SSVPC = 


000046 


6069* 




SSUREG 


000422 


6128* 


6205 


ITESTN 


000404 


6128* 




STSTM 


000462 


6130* 




SUNIT 


000412 


6128* 




SUNITM 


000466 


6130* 




SUSUR 


000424 


6128* 




SVECTI 


000450 


6128* 


6206 


tVECT2 


000452 


6128* 






017662 


6046* 

8697* 


6069* 


.sx 


0UU456 


6130* 





6073* 6079* 6083* 60B/* 6094* 



SEO 0091 



6098* 6102* 6124* 6130* 6^85* 8675* 
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SEO 0092 



CQWEN 


15?6# 


6042* 










ENOCOn 


153&V 


6042* 










ERNUn 


6028# 


6452 


6677 


6690 


7238 


7254 


ERR 


6009# 


6452 


6677 


6690 


7238 


7254 


ERRC]R 


6042« 












ESCAPE 


1654# 


6042* 










GETPRI 


1278# 


6042* 










GETSUR 


1725# 


6042* 










MULT 


439ir 


6042* 










NEUTST 


1585* 


6042* 










POP 


2103* 


6041* 


6042* 








PUSH 


2095* 


6041* 


6042* 








REPORT 


5352* 


6042* 










SCOPE 


6042* 












SETPRI 


1246* 


6042* 










SETUP 


1302* 


6042* 










SKIP 


1688* 


6042* 










SLASH 


1478* 


6042* 










SPACE 


6042* 












STARS 


1447* 


6041* 


6042* 


6069 


6128 


6130 


SWRSU 


1416* 


6042* 










TTYOUT 


6035* 


6501 


6502 


6676 


6683 


6686 




7798 


7876 


7880 


7881 


7887 


8102 


TYP8IN 


2039* 


6042* 










TYPOEC 


2009* 


6042* 










TYPNAW 


1779* 


6042* 










TYPNUM 


1976* 


6042* 










TYPOCS 


1929* 


6042* 










TYPOCT 


1892* 


6042* 










TYPTXT 


1846* 


6042* 










SSESCA 


1667* 


6042* 










SSNEWT 


1621* 


6042* 










$$SKIP 


1701* 


6042* 










.EOUAT 


176* 


6042 










.HEADE 


50* 












.KT11 


319* 












.SETUP 


1180* 












•SWRHI 


92* 












.SACTl 


4961* 


6041* 


6069 








.SAPT8 


5005* 


6041* 


6128 








.SAPTH 


5261* 


6041* 


6130 








.SAPTY 


5436* 


6041* 










.SASTA 


5307* 












.$CATC 


905* 












.tCMTA 
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6041* 










.$0B2D 


4591* 












.$0620 


4714* 












.$OIV 


4494* 












.$EOP 
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.SEQUA 


6041* 












•fERRO 
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.$ERRT 
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.S«JLT 


4431* 












.spoue 
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.SRAND 
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.SRDDE 
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7790 
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•SSAVE 
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.SS820 


W76M 
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.SSIZE 




.SSUPR 


A8K# 


.STRAP 


3991 # 


.STYPS 


5221* 


.STYPO 




.STYPE 


29250 


.STYPO 


3048* 


.SAOCA 


944* 
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498* 


. ABS. 


017662 
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